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I. BACKGROUND 


A. LEE FROELES 


"Hew would increasing the number of ampihibious ships 
impact cn an  amphiLbious Тапатио "what happens if 
2...?",'"suppcse we cnly had x number of troop  helicop- 
ters... ٦ One way to answer questions like these is to 
actually conduct landings under the different conditions 
desired. However, the cost of a single landing exercise is 
enormous, and to run many operations would quickly devour 
the entire defense budget. The next best option for 
obtaining answers to the problem above is the use of cne of 
the many tools available іп a large class of decision 
Support aids. That instrument, which has becone extremely 
important when used froperly, is the computer simulation. 

Before continuing, it is necessary to clarify some 
terns, which have cver time, acquired different connota- 
tions: A godel is a representation of an entity or situ- 
ation by something else that has relevant features or 
properties of the original [Ref. 1|: p.10]. Simulation is an 
analytic technique using the mathematical and logical ncdels 
which represent a real system in order to study the 
processes over periods of time. Neither definition implies 
the use of a computer, however, for the purposes of this 
text the terms will carry that implication REE 1: раб 
Modelling is the process by which an analyst arrives ata 
model or sinrulation [Hcf +4 та ане 

A podel or simulation can be distinguished by its ulti- 
mate purpose. Listed in Figure 1.1 [Ref. 1: p.10] are some 


cf the more common ones. 
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Figure 1.1 Purpose of Simulation. 


The military applications of simulations ace primarily 
concentrated in the operations category. The goals of an 
operational type model are broken down aS in Figure 1.2 
Meet. 1: p.13]. 


- 
SOY AL GP I چو‎ С 2 и жшфмй:. RS Re, EY EE a اعت کے اص‎ шы шй {сч шш 7ے‎ 


OPERATIONAL MODEL 


PLAMMING AMD CROLP OPINION 
EVALUATION FORECASTING ORMATION DEL 
EXPL ORATION CROSS-CHECK АМ EXTRA 
АМ RORIS OF BRA INS TORM ORGANIZAT IONAL 
HEURISTICS OTHER ME THOOS COMMUNICATION 


Figure 1.2 Goal of an Operational Model. 






Of the goals listed above, the most important one for 
military purposes is the planning and evaluation category. 


Some of the most prevalent uses under planning and 
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evaluaticn are technical evaluation, doctrinal ета а Ети 
force structure evaluation, and planning. These classificadas 
tions of simulations determine the structure of the model. 
A model designed for research, for instance, will Le geared 
toward a technically criented person who is familiar with 
computers, programming and the associated logic. А ШІСІ 
criented planning mcdel must be designed for the staff 
cfficer who will be, more likely than not, unfimiliar with 
computers and programming techniJjues. This would imply the 
model shculd be easy to use and be accompanied by the appro- 
priate level documentaion for the non-technical staff 
officer or decision maker. [Ref. 1: p.13] 

The scenario illustrated in the first paragraph of this 
thesis was surely posed to some 5 ۲4.۶۲۰۰ ۲967 at 
Headquarters Marine Corps. The response was probakly either 
to lock for some existing model or contract to have one 
develcped. The result is that there are several programs in 
existence which simulate the ship-to-Shore movement of the 
amphibious operation. They exist as a portion of a larger 
‘combat model or as an entity by themselves. These models, 
having been written scme time ago, were developed for use on 
large main frame computers. That fact automatically lini. 
the availability to the staff officer or decision maker. 

With the proliferation of microcomputers, the next 
logical step in the evolution of this type of nodel was to 
provide the staff officer with the ability to run the simu- 
lation from his’ desk. This would allow him to respond 
rapidly to ‘what if" type questions which are often bantered 
about іп planning sections of any headquarters. Thaw 
requirement was, in fact, made and a civilian contract was 
let tc develop a shif-to-shore model to be run on a micro- 
computer. Unfortunately, for some reason unknown to the 
author, the program that was developed was not implemented. 


It was 'shelved' at the Development Center, Quantico, Va. in 
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an unusabkle form with little documentation. 1٦6711161 
during his experience tour was exposed to the u»del and was 
made aware of the need to have it completed. That leads in 


to the purpcse of this thesis. 


В. РОВРС5Е 


The purpose of this thesis is to complete the develop- 
ment of the amphibious ship-to-shore model for use cn a 
Bicrcecomputer. This will be accomplished by using a design 
process for simulaticns as if the model was being initiated 
from scratch. Included will be the capabilities and limita- 
tions of the model to ensure the decision maker has full 
knowledge of the output. Finally, the finished product will 
be accompanied by the appropriate level of documentation 


directed at the primary user. 


ШЕ 


II. SIMULATIONS 

The process by which an analyst derives a model is 
considered as much an art as a science. Thus, there are no 
theorems or strict rules to guide one in the development. 
Ihe actual steps icllowed by the model builder are very 
Situation dependent. | However, there are some basic techni- 
gues which are commcnly followed by experienced modeilers 
and provide a framework for good model development. 

The approach begins with a simple model and attempts to 
evolve into a more elaborate model which more closely resen- 
bles the actual situation being modelled. As the model 
achieves the simplified goals, new problems may be identi- 
fied cr greater realism may be desired which would lead to 
revisions and additicns. Thus, the evoution of a model 
never really stops until it has outlived its usefulness. 

Based on the definition of simulation in chapter one, а 
simulaticn: (1) is ccncerned with the operation of systems; 
(2) is concerned with the solution of real world problems; 
and (3) is performed as a service for those interested in 
its behavior. From these characteristics the criteria for a 
good Simulation are: 

1. Simple to understand by the user 

2. Gcal or purpose directed 

3. Robust, i.e., it does not give absurd answers when 
minor changes in parameters are made 

4. Easy for the user to control and manipulate 

5. Ccmplete on important issues 

6. Adaptive, with an easy procedure for modification or 
update 

7. Evclutionary - start simple and become nore complex 
in conjunction with the user's reyuirements [Ref. 3: 
рш 22°] 
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۰۰۱۰۶۰۲۰٠۷٦٠۰۰5 ت۱ ۰ہ‎ ۶۰٣6۶ 7٠ذ"‎ 7 Mind, Figure 2.1 [Ref. 3: 
р.24 | illustrates a general design process for a simulation 


model. Note the flows which return to earlier stages on the 


diagram. Those indicate the iterative process oi the 
design. Ike following discussion will elaborate on each 
step. However, keer in mind the general nature of the 
process. | 


The most critical step in the development of a model of 
a system isto define the problen. Albert Einstein once 
stated that proper formulation of a problem was more impor- 
pt than its solution [Ref. 3: poss One 5f the most 
important functions of an analyst is to translate the 
problem, often vaguely stated by the decision naker, into 
precise and operational terns [Ref. 4: p.51]. The analysis 
kegins with specification of the goals and objectives and 
the establishment of boundaries of the model. A flow 
diagram which neither oversimplifieS nor carries too much 
detail is the next step inthe problem formulation. Спе 
should construct the model around the questions to be 
answered rather than imitate the real system exactly. 
[Ref. 3: p.27] 

At this point a decision nust made whether simulation is 
the optiral technique for solving the stated problem. If a 
less complicated, more direct technique exists, it should be 
pursued in the name cf efficiency and cost. 

Once the decision to use simulation is mad2, the data 
requirements must be analyzed. This includes data regarding 
the input and output of the system as well as information 
about the various components of the system [Ref.~{ 3: p.27]. 
Availibilty of input data for the system must be determined 
EnEddartaon to historical output data for use ia validation 
of the mcdel. In ccnjunction with the data analysis is the 
identification of major variables to be used in the system 
which immediately  rreceed the ۶۶ l ition Of model 


subsystems. 
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| COMBINE SUBSYSTEM MODELS INTO 
_ SIMULATION 


SIMULATION DESIGN PROCESS 


DEFINE PROBLEM, 
SPECIFY 







КЕ OBJECTIVES 
Ж i 


ANALYZE DATA 
REQUIREMENTS, IDENTIFY 
VARIABLES 






FORMULATE SUBSYSTEM MODELS DOCUMENT 






IMPLEMENTATION 
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PARAMETERS 
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WRITE CODE 
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RESULTS 


SE Ss ES a oA 


Figure 2.1 


General Design Process for a Simulation Model. 
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Large ргор1іегѕ shcuid be segmented into subsystems which 
are as independent of each other as possible. 5512-586 
tates a logical development and makes validation much less 
compiicated. Without the submodels the entire simulation 
model would nave to Ге formulated and validated at once = a 
formidible task. The decision maker should take part in 
this phase of development to further his knowledge of the 
model and the results and to keep the builder from straying 
from the purpose of the model. [Ref. 8: p.55] 

After ccmbining the subsystems into the simulaticn, the 
data and parameters identified ealier should be gathered to 
ensure they fit into the model. ІГ necessary some sursys- 
tems may have to be adjusted to accomodate the data and 
parameters. The next stage involves choosing an appropriate 
computer language with the following considerations: 

1. Efficiency of computer translation and running sreed 

ШЕ Тє difficulty of translating the description cf the 
subsystems inte the computer language 

3. The output desired from the simulation and ease of 
oktaining the cutput 

4. The limitations of the computer hardware to use the 
language 

Medel translaticn, coding and debugging the model 
follow. The advantage to using submodels b2comes very 
evident during the debug phase. The more independent the 
Submodels are the easier it will be to debug on a component. 
basis. 

Àn irportant step in the design process is the valida- 
tion of the simulaticn model. Validation is th2 precess of 
bringing to an acceptable level the user's cofidence on how 
well the real system is being modelled. It is impossible to 
prove that any model is a "true" depiction of a real system, 
although a careful and thorough evaluation can build confi- 


dence in the simulation. [Ref. 3: p.29] This area is very 


Шш 


deficient іп simulation models found in DOD. Empi reom 
tests are questionable or non-existent, and few efforts are 
being made to require proper validation. [Ref. 1: р. 189] 

There are three tests that may be used to validate a 
model. First, results that are produced must appear to be 
reasonable based on experience. Second is to test any 
assumpticns made about the system and third is to test the 
input-output transformations. [ Ref. 3: p.29] A сои 
methcd of validating the output is to compare it te histcr- 
ical data ccllected under similar conditions. If the two 
are close, the model can be accepted aS a representation of 
the real systen. The ultimate validation, however, is how 
well the model predicts the future or how well it performs 
the analysis it was designed to perform. [Ref. 4: p.57] 

The amcunt and type of experimentation and sensitivity 
analysis depend on the main purpose of the Simulaticn. At 
this stage, the model 1S run uSing various sets of data and 
parameters ina systematic manner to observe the response. 
Often it is at this pcint when flaws and oversights in plan- 
hing keccme more evident requiring the builder to retrace 
some steps in the design process. Deficiences iù estimating 
the validity of input parameters is a result of insufficient 
Or pocrly cenducted sensitivity analysis. [Ref. 1: p.189] 

The final two elements in the design process must be 
included in any simulation project. Implementation refers 
to refining the model, training the user, adjusting the 
model to changing conditions and ensuring that the results 
found are valid. [Ref. 3: p.33] Good documentation is 
extremely valuable for facilitating changes ani gaining a 
rasic understanding cf the model. Resources are wasted as а 
result of poor documentation. This was noted by GAO reports 
which investigated many of the problems found with cperating 
or modifying models. Even though implementaion and documen- 


taion are tedious and difficult, when done properly they can 
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extend the life of a model. More importantly, they facili- 
tate the use of simulation which is particularly crucial in 
an envircnment heavily oriented toward the need of users. 
ЙБЕс- 1: р.191) 

In the chapters which follow, the procedure outlined 
above will be modified slightly to fit the conditons under 
woich tke actual model development took place. Each phase 
of the design process will be made apparent during the pres- 
entation as well as anv deviations from those steps as 
explained arove. 
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III. IHE SYSTEM 
An amphibious operation is an attack launched  fror the 
sea by naval and landing forces embarked in ships or craft 
involving a landing on a hostile shore. The principle type 
of amphibious operaticn is the amphibious assault which is 
distiguished from other types in that it involves estab- 
lishing a fcrce on a hostile shore. The amphibious assault 


follows a sequence of activities which consist 3f planni 


embarkation, rehearsal, movement to the objective, and 
finally, assault and capture of the objective. (Кет. 5: 
p.139 


The shig-to-shore movement is the part of the assault 
Fhase which pertains to the timely deployment of troops and 
equipment from assault shipping to designated positions 
ashore on the landing area. This movement is designed to 
ensure the landing of troops, equipment , and supplies at 
the prescribed times and places in such a manner as to 
support the scheme of maneuver for operations ashore. Ihe 
Tovement can be accomplished by waterborne means, Ку heli- 
copters, or by a combination of the two. [Ref. 5: p.45) 

The ship-to-Shore movement is the most critical part of 
the assault phase. The coordination and control of the many 
diversified naval and troop elements requires a high degree 
of very detailed planning. Such items as the linding craft 
and helicopter availability,  amphibious vehicle and heli- 
copter  enployment, assault scnedule, landing sequence, 
serial assignments (a serial is a number assigned to an 
element of the landing force), and wave assignments are just 
afew of the areas to be planned prior to execution cf the 
landing. [Ref. 5: p.117] 
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The ship-to-shore movement is further divided into two 
periods, initial unloading and general unloading. the 
initial unloading period iS primarily tactical in nature and 
therefore must be responsive to the landing force reguire- 
ments ashore. A tactical situation is where the troops and 
equipment going ashore are prepared to fight. They are 
organized in’ combat units and execute a set plan for the 
Furpcse cf forcibly taking the beach and landing zones. It 
is during this period that the landing force is 2stablishing 
a foothcld ashore and the unloadiny of units is very selec- 
tive. The general unloading period is logistical in nature 
and  invclves the timely delivery of needed supplies and 
equipment. During this time period, the majority of combat 
troops are established ashore and are involved with the 
execution of the operational flan of attack. A beachhead 
exists and is considered a more secure rear area where 
supplies and equipment continue to arrive in sudport of the 
combat troops at the front. 

There are several descriptive categories of waves! 
involved inthe movement of forces and equipment ashore 
according to the landing plan. These categories actually 
divide tke entire landing force and their equipment into 
ПОШО отоор tO provide flexibility, organization, and 
control of the landing. Three of these categories are 
concerned with troops and their initial combat supplies. 
These are scheduled, cn-call, and nonscheduled waves. 

Iwo cther categories of waves are are concerned with 
unloading of supplies. These are called floating dumps and 


landing force supplies which nly apply to the water-korne 


1A wave consists of a numter of nel peu cr hell. 
copters which are to be landed simultaneously. The size of 
a Wave 15 limited by beach ог landing zone capacity and the 
avarlasbaility of vehicles. 536.۳ ٣107۲۳71766017 1S 3> 
mount when constructing a wave. 
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means of delivery. They are not involved  witi the actual 


31723٢3. 42۰ +3 7٤ 


The water-borne movement is broken down into all five 


categories. These include: 


T 


Scheduled waves --Scheduled waves are formations 
which consist of landing ships; landing crac ы 
amphibious vehicles which contain troops, equipment , 
and supplies tc be landed at a predetermiied time and 
place. Their landing begins at H-hour and continues 
fcr a relatively short period of time. 

On-call waves --On-call waves include landing shis, 
amphibious vehicles, or landing craft соптат а 
troops, equipment, and supplies for which an early 
need ashore is anticipated, but for which the time or 
place cannot Бє accuately predicted. Tie commander 
will call for these waves at the desired time and 
place depending on the situation ashore. 

Nenscheduled units  --Nonscheduled units are those 
landing force elements and supplies held in readiness 
during the initialiunloading, but not 186 1019360 ٦ 
scheduled or cn-call waves. The probable sequence of 
landing nonscheduled units is determined luring plan- 
ning, however, the landing of these units is directed 
trom shore when the situation dictates. 

BOISE, dumpes -Floating dumps are emergency 
Supplies frelcaded ir landing craft, amphibious vehi- 
cles, ог in landing Ships.: 

Landing force supplies --Landing force supplies are 
those supplies remaining on assault shipping after 
initial combat supplies and floating dum»s have been 


unloaded. 


As the amphibious force moves into the objective area 


the different types cf ships move into various sea areas. 


Sea areas are used tc minimize possible interference between 
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various components of the amphibious task forc» and other 


supporting forces. Figure 3.1 [Ref. 5] shows these areas. 


ЕЕ‏ ————— — —— ص 
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Figure 3.1 Amphibious Task Force Areas. 


Some definitions of the various sea areas follow. The 
LOD (line of departure) is a designated line off-shore 
approximately parallel to the beach. From this line, 
successive Іоаї waves are dispatched for their final move- 
ment to the beach. The waves travel in boat lanes which 
extend seaward from the beach to the LOD and ace the same 
width as the beach. Approach lanes are extensions of the 
koat lanes from the LOD to the transport area. 

Landing ships are initially staged in the outer landing 


area and when instructed, move to the amphibiois launching 
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агеа. This is located seaward of the LOD and parallel to 
the Leach. Landing ships move in this area parillel to the 
LOD at about 15 knots and discharye the amphibious vehicles 
which make up the initial assault waves. (see Figure 3.1 ) 

Transports move from the outer transport area, where 
they were initially staged, into the inrer transport area. 
This area is as close to the beach as the hydrography? and 
enemy situation will permit since boat operations must be 
conducted at a very slow speed or at a dead stop. Landing 
craft are loaded and launched from this area and proceed to 
the LCD via approach lanes. (see Figure 3.1 ) 

All amphibious vehicles and landing craft nove to the 
LOD at times designated by the landing plan. Movement from 
the LCD is controlled by various control officers located 
along the way and waves move according to their category 
(scheduled, on-call, nonscheduled) at appropriate times. 
Those tires have been computed based on the number of vehi- 
cles the Leach can accomodate, speed of the vehic les, scheme 
of maneuver, etc. If the wave iS comprised of amphibious 
vehicles there is ne turnaround, which means that those 
vehicles proceed inland and do not return to the ship. IS 
the wave is made up cf boats, after unloading they return to 
the transport areas fcr subsequent loads. Figire 3.20909 
diagram cf the process. 

The helicopter movement is broken down inte three 
groups. This movement is normally completed during the 
initial unloading period when tactical3 consid2rations are 
the dcminant factors. Once the helicopter-borne movement is 


completed, transport helicopters are employed for tactical 


| 5 ٦ is the description of the ph 
tions of a bo of such as the depth, type of b 
rocky), currents, etc. 


ical condi- 


iden (sandy, 


, 3Tactical, refers to a high state of combat readiness 
Maintained while executing a combat plan. Тһе assumption is 
Dade that there will bre cOntact with enemy forces. 


26 








ШЕЛ Е гео и 





{1 


Launch flendezvous Arrroach 
lores 


Coe} > 


ae 
Г-1-9 


LT гат Ете 
وو ہہ‎ 





шь лыш» ыы co i ee ee ee ee шч ш ш مھت‎ шыс سے سیت‎ ча ےس‎ С 


Figure 3.2 Boat Landing Process. 


u logistical requirements as needed by the landing force. 
Categcries for the air movement include: 
1. Scheduled waves --This category consists of those 


assault elements of the landing force, together with 


their initial combat supplies, which will be landed 
by helicopter. Times, places, and formations for 
landing have been determined. Scheduled landing 


begins at a specified time and continues until all 
elements in this category are landed. 

copterborne units with their initial combit supplies, 
or emergency supplies, whose need ashore at an early 
hcur is anticipated, but whose time and place of 
landing cannot be accurately predicted. On-call waves 
May interrupt other landing categories based on the 
urgency of the requirement. On-call elements are 
held in readiness aboard shipping and are landed when 


called by the appropriate level commander. 
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3. Nonscheduled units --Nonscheduied units consist You 
any remaining units of the landing force and their 
initial combat supplies which have not been included 
in either the scheduled or on-call categories. This 
category can ke interrupted or temporarily suspended 
because of unfcreseen circumstances in the situation 
ashore. 

The shipping carrying the helicopters initially moves to 
the helicopter transrcrt area which is generally seaward of 
the outer transport area. (see Figure 3.1) From this area, 
heliccpters conprising the first assault waves are readied 
and spotted on the flight decks. (On signal, tro»ps enplare, 
and helicopters are launched. Flights of heliccpteme 
rendezvous about their parent ship and then proceed as 
predetermined waves. They travel via designated helicopter 
lanes and control points enroute to the landing zone. 
Figure 3.3 [Ref. 7: p.143] is a diagram of this process. 
Ihe helicopter waves pick up attack helicopter pretectior 
that provides ground fire suppression. The waves land, are 
unloaded, and return to the ships to refuel and enlane 
subsequent troop serials.* A schematic of this process is 
found. in Figure 3.4 [Refs 7: >7 

LCAC. (landing craft "aur ~“cushic.) would Launch from 
greater distances than boats because of their speed. They 
would operate much like helicopters in that they can travel 
inland tc off load trcops and equipment instead of stopping 
at the beach. They wculd alsc be able to return to shipping 
for subsequent loads. 


., A serial is a designator (number) given 20 сота 
unit or a „piece of ae teen for the purpose of assignment 
to a Carrier going o Shore. This provides control and 
organization during the landing phase of the op2ration. À 
wave 1s made up of many serials. 
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'ENCLOSURE 2 (Helicopter Landing Diagram) to Tab D (Vertical Assault Plan) 
to Appendix 5 (Landing Force Landing Plan) to Annex R (Amphibious Operations) 
to IV MAF OPLAN 9999 (U) 








and 





FLIGHT aALTTTOOEB, 












A8 OSTASCISESÓ CusIMÀ 
maraig Амо сттча 


ж. ta 
TEB OFSSATION ÓmDER 


„== ep س‎ eS A p i rn RR I лани 


= Se ee шышы шшш es SS ee ee SS Se Se SS в سح یمیس‎ 


Figure 3.3 Helo Flight Lanes. 
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Figure 3.4 Helo Flight Plan. 


20 


IV. THE MODEL 

The ship-to-shore model attempts to Simulate the procesi 
described in chapter seer et sepa ee Preparition of the 
model for use involves construction of the serials and 
assault waves which is done manually as they would ke prior 
to an operation. This process is the basis for the largest 
of three data files used in the simulation. Un€ ortunately, 
construction of the serials and waves iS a very time 
consuming process and has not keen automated at this time. 

Two cther data scurces are needed to run the model. One 
file contains parameter values which are not subject to 
change. A helicopter time factors table whith  rcvides 
expected tires for various evolutions such as loading or 
unloading is an example of the type of data found in this 
file. The last source of data is found within the program 
itself as either a line of code or as an interactive query. 
This data is of the type that may be changed easily for 
various types of analysis. 

The model utilizes 35 subroutines to attempt to trans- 
late reality into mathematical computations. A diagram of 
the mcdel in very general terms is found in Figure 58.1 The 
first subroutine in the program reads the data from the wave 
and serial file and the parameter file. Also the variaktle 
data is entered within the first section of the program. 
The second subroutine initializes the arrays and clocks to 
Ге used ky the timing and activity subroutines based on the 
information found tke wave data file. These subroutines 
essentially complete the set-up and initialization of the 
model. 
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Figure 4.1 Flow Chart of the Model. 
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Cnce the model enters the EXEC subroutine it ccntinues 
the timeyeventS procedure until all waves have been landed. 
The EXEC subroutine is the control routine in which ae 
waves eventually pass. Based on the class of tae wave (air 
cr surface) and the current activity (load, launch, urmais 
return, cr arrive back ship), the EXEC subroutine wiin zieni 
the wave in question to the proper subc outine for 
ranipulatior. 

Prior to going to one of the activity subroutines, the 
program queries whether certain flags have been set. T 
they have been set, cne of the following routines could be 
called. Five are fcr helicopter waves and four аге for 
surface waves. They are: 

е REESTART(helo) / BESTART (surface): Restart timing for 
waves that have been stalled by the lack of deck spots 
(helo or surface). Since in reality there are not 
enough deck spots to accomodate all of the assault 
helicopters (landing craft), subsequent waves must wait 
for sufficient spots to load. 

e STOCH (helo) / SICCL{(surface): Tnese subroutines start 
the on-call waves to load after the final scheduled 
wave has begun tc load. 

e HALISH (helo) / HALTSL(surf): Stall remaining scheduled 
Waves when one or more on-call waves interrupt the 
scheduled categcry. As in reality, on-call waves can 
rEreak in when called for. The model allows flags to be 
set to simulate this process. 

e STSH (helo) / STSI(surface): Start schedulel waves that 
have keen stalled due to on-call waves interrupting the 


sequence. More than one on-call wave can interrupt at 


STime/event refers to the computation of time reguired 
to complete a certain event such as loading a helicopter. 
That time is added tc a continuous running clock to deter- 
nine the time at which that event will take place. 
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different tines so the  HALISH[L)/STSL(L) subroutines 
can ke called more than once. 

Seren iO(helo)s ~Reevaluates deck spot employnent if the 
current wave does not occupy all spots available. тү 
calls WSPOT which calculates the number of spots to be 
used in the current wave. 

One last subroutine will be called prior to the activity 
Subroutines. This is the MSCRT routine which acts as the 
Master sort routine. It takes the lowest time from six 
Other timre/event sort routines and that becomes the next 
event which is  prccessed by thewwdDpropriate activity 
subroutine. 

There are three time sort routines common to tne heli- 
copter activities and three time sort routines commcn tc the 
surface activities. They all sort through the waves identi- 
fying the wave with the earliest time for the next event. 
That wave is placed cn the top of the queue from which MSORT 
then picks the lowest time out of the six time sort 
routines. Listed belew are the sort subroutines: 

e HSSCRT: Scheduled helicopter wave sort routine. 


e BCSCRT: On-call helicopter wave sort routin=. 
e HNSCET: Nonscheduled nelicopter wave sort routine. 
e ISSCRT: Scheduled surface wave sort routine. 
е ІС5СЕТ: Оп-са11 surface wave sort routine. 
e INSCRT: Nonscheduled surface wave sort routine. 

The activity subrcutines process each wave based on its 
ciass, activity code, and category (scheduled, on-call, or 
nonscheduled). There are five major activity subroutines 
for each class (air or surface). ط532‎ 2۲17767 subrcutine 
calls other secondary routines and the appropriate time sort 
routine as determined by the wave category. Once the wave 
has ccempleted an activity subroutine, it returns to the EXEC 
Subroutine and the cycle begins again. Thus, еасһ wave will 


eventualiy cycle through five subroutines. 
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The following is a summary of the activity subroutine 


and their supporting routines: 


HRLD: The purpose 15 tc load (or attenpt соси 
helicopter wave from available flight deck s pots of the 
shipping. Loading will not be initiated if (а) пог 
spots are currently available or if (b) insufficient 
helicopters of the proper type to carry the serials are 
present at the time. HRID calls the appropriate time 
sort routine (HSSORT, HCSORT, or HNSORT) and sutroutseNE 
۶۲05 The SECTS routine identifies whether all the 
deck spots are curently being employed for loading. A 
flag is set to indicate whetner deck spots are avail- 
able cr not. 

HLNCH: This rcutine launches a helicopte> wave from 
ships and determines the time it will arrive at the 
landing zone(s). It determines the number of deck 
Spots made available to subsequent waves and restores 
those spots. Also it reevaluates the loading tire for 
a wave being  lcaded which had employed ail of the 
remaining deck spots.  HLNCH calls the appropriate time 
sort routine (HSSORT, HCSORT, or HNSOST) and HPOGDOTDEID 
RESTA HLODCK sets up Signals that will initiate a 
reevaluation of the deck spot employment in the event 
that the current wave was not employing the last avail- 
able deck spot. Those signals will triggec the use of 
ACKID which is called from EXEC. If the current wave 
was occupying tke remaining deck spots, a flag is set 
to call RESTART fron ٦ RESTART allows sukseguent 
waves to employ deck spots which will be vacated by the 
current wave. 

НОМІр: HUNLD determines whether or not landing zones 
are still occupied by previous waves and if so delays 
the landing of the current wave until the pertinent 


zones are free tc use. Also it calculates the length 
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of time necessary for this wave to unload (constrained 
Ey the size of the landing zone). HUNLD calls the 
appropriate time Sort routine  (HSSORT,  HCSORI, OE 
НМ5СЕТ). 

e HRIN: Тһе purpcse is to print a running total of the 
perscnnel ashore and the firepower ashore. А1ѕо 81 
calculates the time that the wave will return to the 
area of the shipping and hence be available fcr forma- 
tion of subsequent waves. шы а 5 the -apprtorriate 
puc sort routine (HSSGCBT, HCSORT, or HNSORI). 

۶۰۰۱82 ۰ HARIV returns helicopters to the heliccpter 
Fools for use in forming subsequent waves after 
degrading the number of helicopters to reflect mainte- 
nance losses. It also initiates the loading process 
for subsequent waves.  HARIV calls the appropriate time 
EurEroutine (HSSORT, HCSORT, or HNSORT). 

The surface activity subroutines operate in basically 
the same manner (the first letter for surface activities 15 
E instead cf H). Since the following routines are so 
Similar to the heliccpter routines, only the differences 
will ke rointed out. 

ШЕНІ: Ine purrcse is to load the landing craft ina 
Sitilar fashion to the HRLD for helicopters. It calls 
the appropriate time sort routines (LSSORT, LCSORT, or 
LNSCRT) and the subroutine WELDEK. WELDEK calculates 
the well decks to be used by landing craft of each wave 
and indicates whether there аге sufficient openings or 
not. 

e BLNCH: This routine launches the surface war es from the 
ships. It calls the appropriate time sort routine 
CORI LCSORTIT,;, or LNSORT). 

BUNLD determines if the beach is ofen for‏ 4 هھ-؟ 
landing and off-loads the wave if it is possible. Tt‏ 
calls the appropriate time cor cmeaoutl) © (LSSORT,‏ 
٣۰۰۰ ۲۰۰۱۰ [1 5 05‏ ۶ ۶۳۰۷ 
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e FRIN: ERTN prints the running total of personnel ashore 
and the firepower ashore. Also, it returns the toats 
to the ships. It calls the appropriate time scrt 
reutine (LSSORT (Reesor +1٥ 

e BARIV: This routine returns the boats to th2 koat pools 
for subsequent vse. It calls the appropriate time sort 
subroutine (LSSCET, LOCSORT 7 570 

Once each wave has cycled through the five helicopter 
activities cr the five surface activities, they are assigned 
a very large value in their time array. This prevents then 
from recycling. The program will end wher the last nonsche- 
duled surface wave has gone through all activities. At that 


point, all personnel in the wave data file will be ashore. 
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A. GENERAL 


The purpose of validaticn® of a model is to bring to an 
acceptable level the user's confidence оп how w211 the real 
system is being modelled [Ref. 3: Die 29 oe A common method 
and perhaps the best is to compare the results 2f the model 
with historical data. However, after some research it was 
discovered that there is a lack of hostorqcalo. data 
concerning actual ship-to-shore operations in the Marine 
Corps. Although there is data collected for reports which 
are required after training exercises, none of the pertinant 
information is retained after the reports have been 
compiled. 

The next best method available to verify this model was 
to ccmpare the results to another sophisticated simulation 
designed and refined to run on a large main frame computer. 
Several such models exist and the results utilized in this 
thesis are found in a study which employed one of those 
models { Ref. 9]. 

This section will be divided into two major subsecticns 
for the purposes of organization. The first will be 
concerned with verification and will cover an initial hase 
using a simplified test data set and the second phase will 
use more complicated input data. The second major suksec- 


tion will involve sensitivity analysis of the model. 


SAlthough there аге TE QU CIS who distingiish between 
uro ticati4on" and | "validation" a model, there is no 
consistent use of the terms in E literature. Therefore 
the terms will be used E تو‎ 392 Y in this thesis and 
have the sare meaning {Ref. 8: 
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В. VALIDATION 


The initial phase of the verification analysis is 
designed to ensure the model is operating corr»ctly fora 
Simplified case whick can be computed by hand. A simple 
landing plan will nct test all the routines within the 
program. However, the ma jor routines will be exercised to 
demonstrate that the basic logic is working. 

The input data for the model for this phase is 
located in Table I1. As one can observe the landing plan is 
reduced to essential information only. Data file T- LLLA 


remains unchanged and the interactive input provides the 


parameters necessary to run this test. At this point many 
acronyms will appear in the text and tables. Appendix A 
contains a glossary of those acronyms that will be 


encountered. 

Using the data in the Helo Time Factors Table {Takle 
XVIII), hand calculations were made to determine the time 
that each wave would land and unload in the LZ from the time 
the wave was loaded cn the ship. Also the number of troops 
being unloaded was  ccmputed at this time. Table II gives 
the results of the model and those of the hand calculations. 

It is obvious by the results of this extremely 
Simple run that the model is at least functioning in a rasic 
mode. To attempt to verify a complex landing plan.by hand 
calculations would be ludicrous. Therefore the  rethod 
alluded to in the introduction of this chapter, comparison 
with historical data, would be the best way to verify a 
targe landing- plan: However, since there is a lack of 
histcrical data, ancther more sophisticated simulation was 


employed. 
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TABLE I 


Input Parameters for Simplified Test 


Foats 


Boat launch hour 


Р 

| Яауе/Ѕегіа1 # регзѕ “Type” Cartiers 

| Sched helo #1/#1 10 CH-46 2 
Scked helo #1/#2 10 СН-46 2 

| Sched helo %2/%1 10 CH-46 2 
Sckted helo #2 /#1 10 CH-46 2 

| Sched surf 1 1 120 Eom 2 

| On-call helo #1/#1 10 CH-46 2 

| On-call surf #1/#1 10 LCM-8 2 
Nenscted helo #1/#1 10 CH-46 2 

| Nonsched surf #1/#1 10 LCM-8 2 

| inrut raraneters Values 

| Operaticnal deck srots 60 
Heliccpter Launch distance 10 NM 

| Shore to landing zcne distance 2 NY 

| Boat launch distance 8 NM 

| Landing zone size Unlinitel 
Beach size Unlimited 
Number of carriers 

Belcs 12 

| 

| 


Helo launch hour 
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TABLE II 
Results cf Simplified Data Set Run 


І | 
| Time of unload # دم‎ 50 1 | 
| on LZ/beach ashore | 
| Wave fo del Hand 85932 Handa 
| Sched kelo #1 21 21 2) 20 | 
| Sched helo #2 27 27 0 40 | 

Cn-call helo #1 29 29 52 50 | 
| Nonsched helo #1 38 59 60 60 | 
| Cn-call surf #1 55 55 70 70 | 
| Nonsched surf #1 OS 5 80 80 | 


- 
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2. Ehase Iwc: Ccupariscn to Large Scale Simulation 


A computerized amphibious assault model (CAAM) was 
used in the study in [Ref. 9). CAAM utilized a computer 
language called GPSS (General Purpose Simulation System) 
which is designed specifically to run Simulations. Since 
the study was mainly concerned with the air portion of the 
amphibious landing; all of the results deal with 
helicopoter-borne assaults cnly. This is not a oproblen 
since SHIPSHOR has the ability to run in an all helicopter 
mode, all surface mode, or a combination of the two. Thus, 
for the purposes of the validation, only the heliccpter 
operaticn of 5НІР5НОЕ will be utilized. Although this is 
not considered an ideal situation, the results from cther 
Simulaticn models were not available. 

several sets of results were contained in the 
Amphibious Lift Factors Study. Four of these will be used 
to make the compariscns. An attempt was made to duplicate 


the СААН inputs in order to reach some viable conclusions 
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about the ccmparisons. Ix ccatronowasenot possible in all 
cases. However, the input parameters that were used by 
SHIPSHOR came very clcse to those used in CAAH. 

A case base was used as a standard for comparison. 
It consisted of a set of input parameters  whica prcduced a 
profile cf the progress of the landing. The base case was 
then compared to other situations to obSevre the effect on 


the landing profile. Table III contains the base case. 


TABLE III l 

Base Case for CAAM and SHIPSHOR Comparispns | 

| Number cf Helicopters | 
Launch Dist ۲8-406 ٤8-5328 CH-53E Attrition | 

| 

| 50 ММ 156 80 3? 0 | 
| 

Speed (type load) Operatonal Nun ber of | 
internal External Deck Spots LZ's | 

| 120 kts 100 kts 114 3 | 
| 

| Beach to LZ Size of Landing | 
| Distance zone | 
| 5 NM Infinite | 
Б J 


Ihe following section will present four situations 
involving different input parameters for both СААМ ала 
SHIPSHOR. The parameters will be listed followed by the 


graphic presentation cf each case. 
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а. CAAM vs SHIPSHOR: General Comparison 
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Figure 5.1 Number of Helicopters: CAAA. 
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1. Base case: 50 NM 
pr Alternate case #1: 35 NM 
3. Alternate case #2: 15 NM 
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Figure 5.3 Helicopter Launch Distance: CAAM. 
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1. Base case: 114 operational deck s»ots 
2. Alternate case #1: 176 operational deck spots 


3. Alternate case #2: 57 operational deck spots 
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Figure 5.5 Operational Deck Spots: CAAM. 
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Mix of Launch Distances and Number of Helos 
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2. Alternate case #1: 35 NM and 

108 CH-46, 64 CH~53D, 32 CH-53E 
3. Alternate case #2: 15 NM and 

72 СН-86, 48 CH-53D, 15 CH-53E 
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Figure 5.7 Mix of Launch Distances and # Helos: CAAM. 
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Figure 5.8 Mix of Launch Distances and # Helos: SHIPSHOR. 


Although not exactly alike, CAAM and SHIPSHOR 
tend to exhibit similar behavior when changing parameters as 
Shown within each graph above. Additionally, comparison 
between CAAM and SHIFSHOR under like conditions iemonstrates 
that the models are producing similar landing profiles. The 
next section will depict the similarities and differences 


through direct comparison. 


49 


Е. CAAM vs SHIPSHOR? Direct Comparison 


The next set of graphs shows a direct comparison 
of CAAM and SHIPSHOR for the parameters used above. A ten 
percent confidence interval around the CAAM profile frovides 


a means of judging the performance of SHIPSHOR. 
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Figure 5.9 Base Case. 
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Figure 5.10 1.5 Wing and 1.0 Wing. 
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Figure 5.11 15 НМ Launch Distance and 35 NM Lamnch Distance. 
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Figure 5.12 57 and 176 Operational Deck Spots. 
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Figure 5.13 15 NM/1.0 Wing and 35 NM/1.0 Wing Distance/Number Mix. 
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The SHIPSHOR model, as exhibited above, tracks 
between the confidence limits for the most part. The 
Liggest discrepencies between the two models is found in the 
eeest 30 or 40 minutes of the landing. CAAM displays a 
rapid, almost instantaneous, build-up where SHIPSHOR is more 
gradual. This may be explained by the manner in which 
SHIPSHOR increments the initial waves at one minute apart. 
Lepending on deck sgot and helicopter availibility, addi- 
tional time delays may be encountered. Thus, tae resulting 
build-up ashore is slower. 

At this foint one can conclude tiat the two 
models, for the particular data used, produce similar 
results. However, as discussed earlier in this thesis, one 
can nct conclude that SHIPSHOF is a fully valiiated mcdel. 
That won't happen until the model is in use and has been 
modified to reflect data from actual operations. There are 
Many possible ways tc disclaim the validity of this model. 
Althcugh CAAM was used in a study that was published, there 
is nothing that guarentees the validity of CAAM. Nhat 
should ke recognized by the above analysis is that the 
confidence level in  SHIPSHOR has been raised to that of 
CAAM. Since the authors of the study based tieir conclu- 
sions cn the output of CAAM, there is no reason at this 
pont to discount the output of SHIPSHOR. 


С. SENSITIVITY ANALYSIS 


1. General 


The purpose of sensitivity analysis is to determine 
the sensitivity of our results to the values of the parame- 
ters used. It normally consists of a systematic varying of 
the parameters of interest and observing the response of the 
model. If the responses of interest vary greatly with 


Slight variations or vary in a manner not expected by 
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experience, then there may exist justification for expendi- 
ture cf more time to cbtain better results. [Ref. 3] 

The approach cf this thesis to sensitivity analysis 
is twcfcld, graphical dand numerical: A graphical presenta: 
tion of the landing rrof£ile with different parameters gives 
an overall picture cf the effect of changing input values. 
The numerical analysis involves the selection of an MOE 
(measure of effectiveness). The changes observed in that 
MOE with a change ina particular value of input give а 
numerical feel for the sensitivty. 

There are a ۶313ھ‎ of MOE's for an amphidious ofera- 
tion. They depend on the desires of the commander, flarner, 
or in this case, the user of the model. The commander may 
want tc know the number of troops ashore at a given time in 
the operation. The planner may want to know the total time 
required to get a certain number of troops ashore. 

For the purposes of this thesis the MOE will be the 
number of personnel ashore at three hours into the opera- 
tion. The first several hours of a landing ars» most crit- 
ical and from the author's experience would be cf concern 
to a ccmmander of the operation. The choice of a different 
MOE would produce different sensitivity relations in the 
results. Under one MOE a comparison of two sets of input 
parameters may be greater than under a different MOE since 
the profile of the landing is a step function. 

The pictoral represntation will be cutoff at the 200 
minute рсіп% to enable observation of the first three hours 
in the landing. The numerical method will introduce a term 


used fcr comparison purposes. It will take the form of: 


Change in MOE 
Sensitivity Index = ------------------------- 


Change in input parameter 
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Change іп # personnel ashor? at 3 hrs. 
Sensitivity Index = -------------------------- СЕЕ ты эе 


Change in input parameter 


The method of presentation will show a set of curves 
reflectirg the change of a Single parameter Его а Га<е set 
of parameters. Then a table will follow with the numerical 
values of the sensitivity index. 

Since there is a large number of рагапе: егѕ, there 
is an even greater number of combinations of parameters 
producing different sets cf results. Therefore the 
follcwing analysis will present only a small subset of all 


possikle ccmbinations. 


2. Graphics and Sumerics 





The base case for the sensitivity analysis which 
ows is contained in Table IV. The subseguent situ- 
ations list only the parameters of interest, then the graph 


of the different cases, followed by the numerics. 
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TABLE ІҮ 


Input Data for the Base Case 


Helo Numter of Helicopters 
Launch List Ci= 46 Che 53D БИЗ 
10 NM 130 63 27 
Number of foats 
теу LC M-6 LCHM-8 LCU LST 
249 52 42 28 0 
Speed (type load) Operatonal 
internal External Deck Spots 
120 kts 100 kts 100 


Peach to LZ Size of Landing 


Listance Zone 
5 NM Q8 helos 
Number of reaches Beach Size 
опе 6 LVTS 
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1. Base case: Helicopter time factors table 

2. Alternate #1: Load time 6 minutes 

3. Alternate #2: Load time 10 minutes 

4. Alternate #3: Load time 15 minutes 

5. Alternate #4: Louble helo time factors tab le 


ہ موہ ہ ہہ ہے ہہ چھ жәһаз ее «жос‏ 4 


8000 

; : 

i | 

| 1 

i ; 

1 

: | ! 

: t ! 
20 желет a ES 

| | 

и 

| 

l 

i 

| 

1 

i 

i 

i } 

i 

| 

| 

i ' 

t : 

| 

| 

i 

| 

| 

| | 

i 

i 

| : 

| i 





6000 





PERSONNEL 


4000 





ہرد کت 


hoc ۱00086 0 





100 150 
ТІМЕ 


Figure 5.14 Helicopter Time Factors. 
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Figure 5.15 Beach Size. 
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TABLE VI 


Sensitivity Index: Beach Size 


Parameter Number personnel ashore (3 h 


rarameter umper ел. ап LS.) 

Base: 6894 

Alternate t1: 5604 

Alternate #2: 6534 

Alternate #3: 6894 

Alternate #4: 7097 

Change in Parameter Change in MOE seis. Index 
(аш І/1<) (% troops ashore) (М2 Е/рага.) 

Base - Alt #4: 2 360 + 180 

Alt $1 - Alt #2: 2 930 +465 

Alt #2 - Alt #4: 6 563 +94 

Ailt 1 = AIT RI: 8 1493 + 187 

Alt #1 - Alt #3: 6 1290 +215 
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Landing Zone Size 


Жы» лыш” ee‏ ج MEA‏ کرت ہوا 


1. Base case: 48 CH~46 Helicopters 
2. Alternate #1: 6 CH-46 Helicopters 
3. Alternate #2: 4 CH-46 Helicopters 
4. Alternate #3: 3 
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5. Alternate #4: 


CH-46 Helicopters 
CH-46 Helicopters 
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Figure 5.16 Landing Zone Size. 
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TABLE VII 


Sensitivity Index: Landing Zone Size 


| 

| 

| 

Parameter Number personnel ashore (3 һ: 5.) | 
| 

Base: 6894 | 
Alternate #1: 6532 | 
Alternate #2: 58 66 | 
Alternate #3: 5650 
Alternate #4; 5495 | 
| 

| 

| 

| 

| 

| 

Change in Parameter Change in MOE Seis. Index | 
(in СН-%65) (# troops ashore) (102/para.) | 
Base - Alt #1: 42 362 -9 | 
Alt $1 - Alt #2: 2 666 - 333 | 
Alt #2 - Alt #3: 1 216 -216 | 
Alt #3 - Alt #4: 1 55 - 155 | 
Alt #1 - Alt #3: а 292 - 294 | 
Alt #1 — Alt #4: 4 ТОЗ - 260 | 
AIE 22 = AL 2 374 -186 
| 

| 

| 
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—_—_ а 


| TABLE VIII 
| Sensitivity Index: Operational Deck Spots 
| Farameter Nunber personnel ashore (3 h:s.) 
Base: | 6894 
| Alternate $1: 6894 
| Alternate #2: 6894 
Alternate #3: 6404 
| Alternate #4: 5866 
Change in Parameter Change in MOE Seis. Index 
| (in deck spots) (& troops ashore) (M2 zZ/para.) 
| Base = Alt #1: 76 0 0 
Alt #1 = Alt #2: 62 0 0 
Alt #2 = Alt #3: 54 90 ; -10 
Alt #3 = Alt #4: 40 538 -11 
| Alt #1 —"“Alt 6 882 -7 
| Alt $1 - Alt #4: 156 1037 -6 
i Alt #2 =- Alt 34: cy 371 -4 


| 
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Number of 6 Helicopter Sized Landing Zones 


1. Case #1: 6 helicopter size / 1 landing zones 
2. Case #2: 6 helicopter size / 2 landing zones 
3. Case #3: 6 helicopter size / 3 landing zones 


4. Case #4: 6 helicopter size / 4 landing zones 
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Figure 5.18 Humber of 6 Helicopter Sized Landing Zones. 
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(іп % 125) (# troops ashore) (10527/para.) 
Case #1 - Case #2: 1 128 +1722 
Case #2 - Case #3: 1 138 +138 
Case #3 - Case #4: 1 0 0 
Case #1 - Case #3: 2 266 +133 
Case 81 - Case #43 3 266 +89 
Case #2 - Case #4: 2 138 +69 


Dv aa с> теш = OUT UU CUTE 

| TABLE IX | 

| Sensitivity Index: # of 6 Helo Sized LZs | 
| 
| 
| 
| 
| 

Parameter Number personnei ashore (3 hz S.) 

Case #1; 6266 

| Case 12: 6394 

| Case #3: 6532 

Case 45: 6532 

| 

| Change in Parameter Change in MOE Seis. Index 

| 
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Number of 4 Helicopter Sized Landing Zones 


1. Case #1: 4 helicopter size / 1 landing zones 
2. Case #2: 4 helicopter size / 2 landing zones 
3. Case #3: 4 helicopter size / 3 landing zones 


4. Case #4; 4 helicopter size / 4 landing zones 
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Figure 5.19 Number of 4 Helicopter Sized Landing Zones. 
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TABLE X 
Sensitivity Index: # of 4 Helo Sized LZs 


Parameter Number personnel asio rce a =) 
Case #1: 5866 
Case #2: 5866 
Case #3: 6756 
Case #4; 6756 


Change in Parameter Change in MOE Seis. Index 


ای ہے کک سے دست ERG antt‏ کد سے مک سے مسا ہے ست سے ہے مسد م سرک ہے کہ مسد وس petty‏ وی کیہ کے مد مک صت موی کک سے سر مس سے مد ہے کس کمک HRS auta cum‏ ہے کیک مس م ےی کد کی کی ہیی سے ہے کے 


(in % 125) (# troops ashore) (MOE/para.) 

Case #1 - Case #2: 1 0 0 

Case #2 - Case #3: 1 890 +890 
Case #3 - Case #4: 1 0 0 

Case #1 - Case #3: 2 890 +445 
Case #1 - Case #4: 3 890 +297 
Case #2 - Case #4: 2 890 +445 

۳٦ A ___ 8‏ رص 
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Helicepter Launch Distance 


1. Base case: 10 NM 
2. Alternate #1: 20 NM 
3. Alternate %2: 30 NM 
4. Alternate #3: 40 NM 
5. Alternate #4: S0 NM 
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Figure 5.20 Helicopter Launch Distance. 
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Sensitivity Index: Helicopter Launch Distance 


Parameter 


Base: 

Alternate 
Alternate 
Alternate 
Alternate 


Change in 
(in NM) 


Bases 

Alt #1 - 
Alt FZ = 
Ару = 
Alt #1- 
Alt #1 - 
Alt #2 - 
Base = 


#1: 
qs 
T 
#4: 


Parameter 


Alt 
Alt 
Alt 
Alt 
Alt 
Alt 
Alt 
Alt 
Alt 
Alt 


#1: 
#2: 
32 
#4: 
#3: 
#4: 
#4: 
#2: 
#3: 
#4 3 


10 
10 
10 
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TABLE ХІ 


Change in MOE Seis. Index 


(# troops ashore) 
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6894 
6 
64 04 
6266 
6004 


362 
128 
138 
3:38 
266 
528 
400 
490 
6 28 
890 


(102/para.) 
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Figure 5.21 
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TABLE XII 


Sensitivity Index: Number of Helicopters 


Parameter Number personnel ashore (3 h: s.) 

Base: 6894 

Alternate #1: 7110 

Alternate #2: 6670 

Alternate #3: 6007 

Alternate #5: 6266 

Change in Parameter Change in MOE Seis. Index 
(ro unit) (# troops ashore) (392 E/para.) 

Base = Alt #1: %216 N/A 

Alt #1 = All #2: -224 N/A 

Alt #2 - Alt #3: -663 N/A 

Alt #3 - Alt #4: 1:259 N/A 

Alt #1 = Alt #3: -1103 М/А 

Alt $1 - Alt #4: -8 44 N/A 

Alt #2 = Alt #4: -404 N/A 

Base =. Alt #2 -224 М/А 

Base = Alt 592 - 717 М/А 

Base - Alt #4: SES N/À 


Note: Since there were three parameters Еа. at 
one time during this run, no unit could be . 
devised for the denominator of othe sensitivity 
index. However, an idea of the model's response 
can be obtained from the change in MOE values. 


. 
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1. Base case: 130 
2. Alternate $1: 108 
3. Alternate $2: 72 
1. Alternate #3: 54 
5. Alternate #4: 36 


e e ES A EE GE a ee ee Se ee eee‏ پس 


.%%%%-че езееетеее есес ек» фф» «есежженежетееж-%лееет-. |е ееееееегесееев»ежесесве»-4еееевезее-е--ес-өее--е еч» -.енееесетееееееееееее-- |.еееееееезезесес» ез-е-е-е4..»-еее есеекеесес есеге —- ۽‎ 





pue 108 0 
eo 


: 4 
кык М: К чесе OE t meme bn а 
H us “سے‎ | 
т”) ك‎ ЖӘ || ЖІ 36 
oe A -------.| 54 


- 
سے‎ 
سے‎ 
e - 
کٹ 7 سے‎ 
s 2” , 
= ^ 
A € ہے‎ rper ^ 
- .-. 2 
~ ^ 
-spl кос 5522: ae eon مه‎ = 
سے‎ 
جح‎ 
ے٦‎ 
or” 
an 
= 
-. == же = — ہم‎ -— - == е = == 
, | 


50 100 150 
ТІМЕ 





Figure 5.22 Number of CH-46 Helicopters. 
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Se ee ee ишы 


TABLE XIII 
Sensitivity Index: Number of CH-46 Helicopters 


Parameter Number personnel ashore (3 his.) 

Base: 6894 

Alternate #1: 6670 

Alternate #2: 6670 

Alternate #3: 5987 

Alternate #4; 53599 

Change in Parameter Change in MOE Seis. Index 
(in # of CH-46s) (# troops ashore) (42 Е/рага.). 

Base - Alt #13 22 224 -11 

Alt #1 = Alt #2: 36 0 0 

Alt #2 - Alt #3: 18 683 = 

Alt #3 - Alt #4: 18 298 -17 

Alt #1 = AIT 2251 683 -13 

Alt #1 = Alt #4: 72 1071 5 

Alt $2 - Alt #4: 36€ 1071 : 27-220 

Base = AlE: 55 224 -4 

Base - Alt #3: 76 907 = 12 

Base - Alt #4: 94 1295 - 14 
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1. Base case: 1 
2. Alternate #1: 2 
3. Alternate #2: 3 
4. Alternate #3: 4 
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Figure 5.23 Number of Beaches. 
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Parameter 


Base: 

Alternate #1; 
Alternate #2: 
Alternate #3: 


ааа a RS ea алуа ہے و کو ہے ہے‎ ag Sica کچ اسان‎ oom ll Qos fed 


Base - Alt 
Alt #I 77٤۴ 
Alt #Z — Alt 
Alt #1 = Alt 
Base - Alt 
Base - Alt 


(in beaches) 


TABLE XIV 


Sensitivity Index: 


Numbe 


Change in Parameter 


6894 
6894 
17ئ7 
79097 


Change in MOE 


(# trcors ashorg) 


UL) ^N) Ку تہ‎ — = 


9 
203 


203 


203 
203 
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Number of Beaches 


(2 50) 


Seis. Index 


(М2 Е/рага.) 


0 
„+205 
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Figure 5.24 Landing Craft Launch Distamce. 
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p-————————— Б тте тл NN 
TABLE ХУ | 

Sensitivity Index: Landing Craft Launch Distance | 

| 

| | 
| 

| Parameter Number personnel ashore (3 his.) | 
| Base: 6894 | 
| Alternate #1: 6894 | 
| Alternate #2: 6534 | 
| Alternate #3: 6244 | 
| | 
| | 
| 
| Change in Parameter Change in MOE Seis. Index | 
| (in NM) (# troops ashore) _ (M2 EZpara.) | 
{ 

| Base - Alt #1: 4 0 0 | 
| Alt F31 = AIT F2: 2 360 180 | 
| Alt ł2 = Alt #3: 2 290 145 | 
| Rit ЕЛ = Alt 6 650 109 | 
| Base - Alt #2: 6 360 60 
Base - Alt #3: 8 650 82 | 

| 

| 

| 

| 

=з 


SE: eee‏ سد SS ES SS SS шо SRE AEE шщ ode ۹ a ИА G e ЕНИР e G B EE‏ ہب جک جن 
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With the abcve tyre analysis, one cow las readily 
cbserve how the model reacts under different parameters. 
The sensitivity index is a value which provides a weighting 
scheme in crder to rate the effects of going fron one set of 
parameters to another. The sign of the sensitivity index 
indicates how the model responds. A positive sign indicates 
improvement in the performance of the landing plan when 
going frcm one set of parameters to another. A negative 
Sign would indicate a decrease in the MOE, thus the plan is 
۶۰۰18 ۶26 1277۰. 

The sensitivity analysis was conducted utilizing a 
set of base conditions from which a parameter was changed to 
observe the effect. Table XVI lists the parameters altered 
which had the greatest effect within each different set of 
parameters. For instance, within the set of altered parare- 
ters for beach size, the greatest effect occurred wher the 
size of the beach was increased from 2 LVTs to 4 І775 (465 
personnel ashore / minute load time). Thus, tie effect or 
making a Change decreased as the size of the keach increased 
beyond a 4-LVT sized beach. The other parameters listei 
follcw similar logic. 

The parameters in Table XVI are listed in crder of 
increasing sensitivity index. This indicates : he relative 
impact of changing a parameter by one unit as compared to 
the other altered parameters. Thus, the least sensitive 
parameter is the change of operational deck spots from 114 
to 60 (11 personnel ashore / operational deck spot). Ihe 
greatest sensitive parameter is found by increasing the 
number of 4-helo sized landing zones from 2 to 3 (890 


perscnnel ashore / 4Y-helo sized LZ). 


8 1 


| 


эсш шы д‏ یں Sa ee ah ml а) шанада he шы фл салы жанны eg‏ و a‏ ےھ ہا ...مسا 


TABLE XVI 


Altered Parameters Yielding Greatest Effect in MOE 


Change in Parameter 


Op deck spots: 114 to 50 

Helo launch dis.: 10 to 20 NM 
Number CH-46s: 72 to 54 

# cf 6-helo -sized IZS: 2 tens 
Tire factors; 6 te 10 min. 
Boat launch dis: 6 to 8 NM 
Numker teaches: 2 to 3 

L2 size: 6 to ц СН-465 

Beach size: 2 to 4 LVTs 

# of 4Y-helo sized 12s: 2 to 3 


| 
| 
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Absolute Vilue of 
Sensitivity Index 
(PA=Personnel ashore) 


3 
| 
| 
| 
| 
| 

11 PA / dack spot | 
| 

37 РА / МҸ | 
38 PA ر/‎ 7612456 | 
138 PA / LZ | 
146 PA / min. | 
180 PA / N1 | 
203 PA / beach | 
332. РАТУ ЗЕ ЕЕ | 
465 PA / LVT | 
890 PÀ / LZ | 
س‎ 


VI. MODEL DOCUMENTATION 

A key tc usability of any computer software is documen- 
taticn. [Ref. 10]. The general community of con puter model 
develcpers and model researchers has not been overly 
concerned with issues of model documentation. This Shas 
severly handicapped the utility and acceptence of many valid 
models, and also, allowed some invalid models to re used. 
However, a subgroup cf computer model developers, simulation 
modelers, һауе reccgnized that good documentation aids in 
establishing the validity of simulation models and in 
increasing usage rates [Ref. 11: p.21] 

Since a model's developers are frequently not the 
models's ultimate user, concise documentaion is essential 
for effective model use. An article by Louis Fried recon- 
mends that rodel documentation should at a minimum previde 
the user and analyst views [Ref. 12]. Proper documentaion 
involves the use of four types of manuals which provide 
information for four different classes of audiences. These 
consist cf managers (decision makers), users, analysts, and 
programmers. Each manual should include some common topics 
such as a table of contents which can be expanded  urpcn or 
modified according іс reguirerents of the specific model. 
Terms of each manual stould be directed towards the audience 
cf interest. Ihe following will briefly sunmarize the 
thrust of the four tyres of manuals. 

In the decision-maker's environment, the main gcal of a 
manual is to assist managers to make decisions. TS SECC 
plish this end, the manual must describe the model and its 
applications to managers (those who sponsored the mcdel and 
those who пау ре interested in a developed model). The 


manual should provide managers with sufficient information 
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to permit them to accurately assess the model толот requise 
ments (tire, money, and other resources), available outputs, 
and the accuracy and precision of the results. Decision 
makers can use this manual to justify the employment of the 
model and in evaluaticn of the results. [Ref. 13: p.2] 

A user is interested mainly in deriving results froma 
model for specific applications . The user's manual mest 
contain sufficient information to allow the users tc employ 
the mcdel intelligently and accurately. The user, although 
occasionally unfamiliar with computer techniques, must be 
informed of the model's logical structure, general simula- 
tion approach, and any assumptions and limitaions affecting 
the mcdel's applicakility. It is not necessary to have 
details of the analysis or programming beyond the prepara- 
tion of input data and  interpretaion of model results. 
(Ref: 881 

The primary purpese of a programmer's manual is for 
Maintenance and modification of the model. Since a 
ргодгалшег must correct any errors discovered juring model 
usage and possibly convert the model for use on ancthker 
computer, the guidance provided by the manual should Ге оп 
two levels. The micro level should contain details of what 
happens in each routine thus providing facts about what 
occurs in each of tle parts of the model on an individual 
basis. The macro level gives an overall discussion of the 
processing technigues used and their relationships. Thus, 
it provides a grasp cf how everything is tied together high- 
lighting areas vulnerable to change. [Ref. 11: p.3] 

The analysts manual is the source document for an 
analyst who is primarily interested in the analytical tech- 
higues and algorithms used in a model. This manual should 
explain the equations used in the model and the methcds used 
for verification and validation. It is not necessary to 
include details such as input and output formats or program- 


ming details involving language syntax. [КеЁ. 13: р.3] 
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The decision on which types of manuals аге reguired 
depends upon the individual model and should be made ona 
case-by-case basis. Although the main audience for the 
Ship-to-shore model will be decision-makers and users, there 
exists the need for the programmer's manual as well. The 
analyst's manual would not offer anything differant from the 
cther three, therefore it was deemed unnecessary. The docu- 
mentaticn for this model will be of a combined format with 
sections directed at the respective audiences. 

Each section will be based on recommended outlines found 
in [Ref. 13] with whatever modifications are necessary. The 
sections vill be self-contained and pertain to each of the 
three classes of audience to facilitate ease of use. The 
entire mcdel documentation is found in appendices A through 


F and can be removed as a separate unit. 
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ҮІІ. CONCLUSIONS 


Ane >/ ۵٥۶ 


Ihe proper construction of a simulation пойеі “аа 
formidible task. It involves many facets other than tne 
writinj of code which is supposed to reflect a real life 
System. There are numerous activities required prior to the 
frogrammcing stage which are vastly more important. 
Definiticn of the prctlem is probably the most critical step 
in the process and should involve a great deal of effort. 
All too often a piece of software is developed in a vacuum 
withcut regard to the user and the actual problem which is 
to be solved. This tends to reduce the crediblility of 
simulaticns and their usage. 

This thesis attempted to demonstrate the proper proce- 
dure in the construction of a model. Although, the model 
was already in existence, the procedure outlined in chapter 
Ii was employed as much as possible. In some respects it 
was more difficult to start with a nearly finished product, 
learn the code, dissect the logic, flow chart the model, and 
then work forward through the model builiing  sters. 
However, the primary purpose of this research was to 
complete the amphibious ship-to-shore model for use on a 
microcomputer. To accomplish that end it was necessary to 
start with the existing simulation. 

Based on the material presented in this th2sis, it is 
felt Ey the author that SHIPSHOR is basically a good герге- 
sentaticn of the ship-to-shore movement of an amphitious 
landing. From the results of the validation and sensitivity 
analysis and in conjunction with the author's ex) erience, it 
is concluded that SHIFSHOR has a great deal of potential and 
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15 а viable decision aid. It also has гооп гог expansion 
and ccntinued improvements. Ine next section will address 


the areas for future enhancements and applicability. 


B. FUTURE ENHANCEMENTS 


As discussed in the beginning of this thesis, rodel 
development is a continuous process. Düring the conduct or 
research and analysis of SHIPSHOR, Many areas for possikle 
future enhancements were realized. Some of the more proni- 


530٦ 1ء‎ аге: 

ә Моге SenSitivity analysis 

e Improve any area discovered during additional sensi- 
tivity analysis 

e Elimination of some of the limitations of the model 
that were encountered 

e Employ stochastic modelling of the various time factors 
which are currently expected values 

e Use the Basic Compiler to improve the speed of execu- 
tion of the nodel 

e Add a stochastic attrition subroutine option 

e Autcmate the wave and serial assignment table which 


forms the basis for the landing plan file 


С. FUTURE APPLICATICHS 


The main reason for the development of SHIPS HOR was for 
use in a study which was to assist procurement planning. 
There was nothing specific planned beyond that objective. 
Currently, most U.S. models are designed for aiding analysis 


involved in hardware procurement and force siz> determina- 


Hon. However, there is a broad range of uses for simula- 
fons which have teen overlooked by 0-5 military 
organizations. 
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The Soviets have for many years utilized molels as part 
cf an integrated system of decision aids for the commander. 
SHIPSHOR is a type cf model which could lend insight into 
operational planning for the commander and his staff. Once 
the mcdel has gained the necessary confidence of the pcten- 
tial users, it could be used to help a commander make deci- 
sions regarding various options he may be considering. 
Choices such as the number of 1,25, size of LZs, number of 
teaches, number of helicopters, etc. could be run ТІС! 
the model to observe the effects on the MOE of chcice. 
Then, based on those results, the commander cai make deci- 
sions for the landing. 

Another possible application is related to predictive 
Plana oe The model could be used as a gauge > о determine 
if the landing is  prcceeding as desired. If the actual 
landing is not progressing according to the predictions o£ 
the model, the commander could make adjustments to get back 
on his schedule. Of course, any use of this model will be 
depend on its reputation and credibility. A good reputation 
will only be formed after continued validation аша 


modification. 
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Acronym 


СН-46: 


اد ّ5 


СН-53Е: 


ШАНС 2 


ІСМ-6: 


ІСМ-8: 


APPENDIX A 
GLOSSARY OF ACRONYMS 


Definit ron 


A twin-turbine powered, tandem rotor assault trans- 
port helicopter.- It has a cruising speed of 120 
kts. Under ideal conditions it has a max payload 
of 4280 lbs. The max number of troops (the 


primary paylcad) it carries is 17. 


A twin-turbine powered, single main rotor assault 


cargo heliccrter. It has a cruising speed of 150 
kts. Under ideal conditions it has a max paylcad 
of 13761 lbs. Тһе шах number of troops it carries 


is 57. The normal payload of the CH-53 is cargo. 


Same characteristics as the CH-53D with the excep- 
C cnor the payload. Тһе max payload of this 
dl recraft is T6000 lbs. 


А wheeled amphibious vehicle. It can carry approx- 
imately ten troops. Тһе primary mission of this 
vehicle is for use on the beach by the unit that 


controls the beach organization. 


Landing craft, mechanized. This is a flat Eottoned 
boat used to transport vehicles and troops to 


Shore. The € designates the size of th2 craft. 


Same type of landing craft as the LCM-6 with the 
exception of the size. The 8 indicates that it is 
3.۰٣5 ererat thant he LCM 6. ШЕ сап carry a tank 
where the LCN-6 cannot. 


89 


ТЕ; 


TAS 


LBD: 


LEN: 


2 


18001:09  'ت‎ ۶۶9٦١ Carried оп 13 ہ و‎ ۶ ише 
ious ships although it is a self contained unit. 
This is the largest of the flat-bottomed landing 
craft used to discharge troops and vehicles ashore. 


It can carry two tanks. 


Helicopter assault ship. It has a heliccpter 
flight deck as well as a loading dock for landing 
craft. : The ship actually floods its well deck in 
order to launch the landing crait: It displaces 
about 30000 tons and can carry 2000 combat troops. 


It is approximately the size of a WWII aircraft 


Carrier. 
Landing shit with internal loading | docks BOE 
launching landid) Craii. It has a small two spot 


flight deck for helicopter operations, however does 


not carry 7٦5" 9۳130 ۶ ٦ It displaces 17000 


tons and can carry 900 troops. 


Helicopter assault ship without loading docks. TE 
has extensive medical facilities. Sinz e it has no 
loading docks, it can not carry heavy equipment. 


It displaces 18000 tons and can carry 2000 trcopss 
Ihe first of the class was actually a  ccnverted 


WWII а1гСгат саг ек 


Landing ship with internal loading docks for 
landing craft. It has a small one spot flight deck 
for resupply. It displaces about 13020 tons and 
can carry 320 troops: 


Landing ship, tank. Originally designed in WWII, 
it can land tanks and other vehicles directly onto 
the beach through a bow ramp. It has a small cne 
spot flight deck for resupply. LSTs displace 8200 


tons and can carry about 350 troops. 
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КАШ ТИТЕПЛШСШЕ гаскей, This 1S truly an amphib- 
ious landing craft that has tracks for movement off 
the beach. The uüurrent model, LYTP-7, is designed 
Or CIEL ING ROO ELON the anphi bious ships 
into land combat. It 15 completely enclosed to 
provide all-around armor protection from shrapnel 
and small arms." 


above definintions are found in [mef. 1] and 
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DECISION- MAKER'S MANUAL 
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2. Verification and Validation) = ۹٦ ۹١١" Б 
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1. Current Use 2-2: 2.2 5 cS 
2. Additional Applications? 2 10205 501 1 


F. References . . e ecse 0. 4.7. . 727777 а 


B. IRTRCDUCTION 


The ship-to-shore model was initiated by -he Analysis 
Suppcrt Branch of the Marine Corps Development Center, 
Quantico, Ya. in suppcrt of the AmphsbronsepireStug 77 Ihe 
original mcdel was delivered іп an unusable form which 
pronpted revision by the author. The purpose »f the model 


15 to sizulate the mcvement of units of various si2e595 590 
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anphibious shipfing to shore via surface and heliccpter 
transportation. 

The purpose of the decision-maker's manual is to commu- 
nicate to managers the capabilities of the ship-to-shore 
model. To attain this, the Contents of this section will 
describe the model, its development and experimentation, and 


enr ent applications. 


с. MCDEL DESCRIPTION 
1. Capabilities 


The model, called SHIPSHOR, can be used :o determine 
build-up of troops and firepower ashore versus time. It can 
also be used to compare the effects of changes in the numter 
and size of landing zones (beaches), numbers of carriers, 
numbers cf amphibious ships, distances from launch, deck 
vt utilization, and attrition. These capabilities of the 
model are concerned with utilization in the »lanning oz 
operations as well as use during the execution of the plan. 
The model accomplishes the above tasks through a series of 
Subroutines which calculate the time for certain events to 
cccur, then executes those events seguentially. (See Figure 
E.1) A detailed explanation of the subroutines san be found 
in the programmer's section. 

The ship-to-shore model can be utilized in studies 
involvine amphibious cperations to determine opti mum carrier 
number, launch distance mixtures, deck spot utilization, 
etc. The model could also be employed in a planning mode to 
predict approximate troop build-up ashore given the unit, 
distance of launch, number of carriers, number of deck 
OCS, etc. This could be useful in planning an oreration 


as well as gauging tre progress of the landing. 
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Figure B. 1 Flow Chart of Model Routines. 
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Input data is 


broken down 


into three categories. 


The largest group of data is found in the landinj plan file. 


The file requires the 


manual construction 


assault waves in a specific format. 


of serials апа 


The format is found in 





the 'helr' file (Appendix E) and the user's manual (Appendix 
B). Ап example of tke file is listed in Figure B.2. 
Ж 7 18.317.128.32.25,1878.48.,8.8. I.R-1.ó619 - i= 
Poe oe c c ТАВА. АТА, к=2.615 
Елес 8۰ 1979, A.A.9.1.R-2.615 
56ف 6-1 97 ۰:5 6 76 ۲۹۰۶ ےہ۳۰۰ ۷۱۱۷۶۰۰۱۰۰6 ےت‎ 
Баа ЕЕЕ ЕЕ. 167616. А. ЭТТ. КЕС. Ыш, 
3,275, 1759 cc 1875 MIO SIR OI 
کک 7-5 ٣ک رج‎ iS SOS ie Poloan 
28,748, 290,455,706, 2560, куо 
ке OU 000ب ۳ 66ک‎ BE. TIR 1220 
49511021106 1۰ .وت‎ R-1, 240 
EU igi le Pu cA c MIA AERIS. T uc оа 
кенет азав, 5176, ЛТ ЕТІ Бе: 250 
ЕОС. Чо ЗАЛАА. Т.БЕ 55 
аео ласа БАГ А Ап m 5m] 
Боасе ТЕЕ ЗАТ, АЗАР Е Е 551 
Pod cO ۲0٦41۰۷۰۰۹7 1 ۹ 1 
CS. c OA OT رع‎ 
65,289,112,412.74,841,04,4,7,1.Е-2,6%1 
Еа оаа ЕТУ АЈ 1.Е-І,225 


em mg er mmm Sc mr ee eee 


Figure B.2 Example of Landing Plan. 


Iwo other data sources are needed to run the model. 
One file contains parameter values which are not subject to 
called T-1.DAT. 'help' file for the 
Figure B.3 is a listing of that file. A helicopter 


change and is See 


format. 
time factors table which provides expected times for various 


evolutions is an f2und in this 


1 


example of the type of data 


file. 

The last data source is found within the program 
itself as either a line of code or as an interactive query. 
This data is of the type that may be changed easily for 
various types of analysis. See 'help' file and Figure B.5. 
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СУТУЕЕ УТЕ 70е 


9.7,4.9,9.7.2.,9.9.7.,7.9,744.4.27.7.8 202,744, 2.7, 1 13 DO] M LL T Se 
1.1.1.1.1.1.1.1.1.1,1; 1:000 De EINE 

0 +4 4 1,۰۰444 444/۰4 1 ۷01و و 

120. 10032100.B8.9. 12 11; 2 0 0 

1,1.1.1,1.1,4,10.10, ЛО, ТООСГО ИЕ ата ЕСЕ 
ИМИ У ни 1 

pr 


TED ш мш سے‎ шшш шшш EE EE SS CE SS шин чири лиль. ЭНЕБИ == аНЫ АН Н АНЕЛ M ӘНӘ. Әрін ӘН ARD UNS 





Figure B.3 Example of Data File T-1.DAT. 
















RUN 
t OF SERIAL LINES OF DATA FOR SCHED, ON-CALL, % NONSCHED HELO THEN SURFACE: 69, 25,0,40,0,0 


Setup 17907 

٢ 0۴ ۰ 511۳۹ 8۴ ۴۰۷۷۹۹۹۹ ہہ‎ 1 

157 TURNARGUND SCHED HELO WAVE: 14 

+ CF PEACHES AND $ OF LANDING ZONES:4.,7 

HELO LAUNCH DISTANCE, BOAT LAUNCH DISTANCE, AND SHORE TO LZ DISTANCE:50,2,5 

LHOUR AND HHOUR: 017000, 0 

R OF WAVES IN ORDER SCHED, QN-CALL, NONSCHED HELO THEN SURFACE:23,10,0,19,0,0 

# OF HELOS THAT CAN GCCUPY AN LZ AT ANY ONE TIME BY TYPE (CH45, СН550, СНЕЗЕ, ШНІМ) :10,9,3, 15 


$ OF CARRIERS BY TYPE (CH45,CH52D, CHS2E, UHIN, LUT, LCM5, LCNB, LCU, LST, LARC) : 155, 80, 22,0, 249,52, 2242, 28,0, 12 
t OF SURFACE CRAFT THAT CAN OCCUPY A BEACH AT ANY ONE TINE BY TYPE (LYT,LCMS,LCN3,LCU,LST,LARC):4,5,4,2, 1,4 
INPUT DATA FILE NAME: LPE. DAT 
OUTPUT FILE NAME: TEST! 
ا ص‎ mcm mnie em lm ne cmc т ee E ERE А 


Figure B.4 Example of Interactive/Line Input Data. 


The output of the model can be modified to reflect 
the on-going utilization. For exmaple, if the MOE is 
build-up ashore, the output could be personnel and firepower 
ashore at given times. This data could be printed or sent 
to a file for use іп а graphics program to plot the 
ruild-up. See Figure B.5. 
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Figure B.5 Example of a Graph of Build-up Ashore. 


Total time tc land a particular sized force could be 
obtained for several different sets of input data. Then a 
graph could be made ccmparing the various sets of inputs to 
obtain sensitivity analysis for the desired parameters. For 


details cf the coding requirements see the user's manual. 
3. Assumptions and 


Assumptions which affect the results of the model 


are as fcllows: 
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e Helicopter and boat time гасіогѕ аге expected 


values as cpposed to stochastic  valies. Thais 
assumption 15 considered reasonable since the 
factors are used many times. This lenis itself to 


the use of averages according to the central limit 
theorem. 

e There is an attrition rate which is predetermined 
and set as a constant. This designates mechanical 
and/or combat a@ttricucn. The value used is based 
on experience and not on any factual data therefore 
it is considered an assumption. 

e All time calculations are assumed to be rounded to 
the nearest minute. 

e Environmental effects are assumed to  negligirle 
which implies load limitations of the helicopters 


and landing craft are based on an averaje day. 


Limitations of the model depend highly on the model 


purpose. The following are the major limitations: 


е Іп order to run the surface portion oí the 7٦ 
there must be a sufficient number of carriers to 
land the scheduled and on-call waves. 

e Fach heliccpter wave must use the same type of 
helicopter. Since the model computes all activi- 
ties and times based cna particular wave, the 
speed of the aircraft must be the same. 

e Once the lcads are assigned to a wave and heli- 
copter type, they can not be switched during the 
simulation. Therefore, unlike the fl» xirility in 
reality of switching loads to available craft, the 
nodel does nct have that capability. 

e Waves and serials are not designated to а partic- 
Ud aresh gos Therefore, the simulation looks at the 


total number of deck/well spots for the entire 
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апгһіріочв force instead of those individual ships 
tc which craft are assigned to load. 

e The current edition is limited to a maximum of four 
landing zones or beaches. This can be modified by 


making a Change in the coding. 


D. DEVELOPMENT AND EXPERIMENTATION 
1. Zevelopment History 


Ihe ship-to-shore model is currently the first 
revised edition. The original was developed by General 
Research Company for use in the Amphibious Lift  Factcrs 
Study at the Development Center Quantico, Va. The devel- 
opers turned over the product in an unusable form witha 
paucity cf documentation. The current form was revised by 
the authcr. It involved variable identification and then 
constructicn of a detailed flow chart іо understand the 
logic Of the model. Enhancements included interactive 
input, output to a file, a detailed documentation secticn, a 
'help' file, and conversion to IBM disk operating system for 
ӘНШ ТЕМ РС. 


2. Verification and Validation 


— Máá— اک‎ a =: 


The validaticn conducted on the model consisted of 
‘two phases. The initial phase involved the testing of a 
Simplified landing flan which could be checked Ey hand 
calculations. The results showed that the model performed 
the basic computations as it was designed. 

The second phase of the validation utilized the 
results cf another, large scale simulation. Since histor- 
ical даға did not exist, it was necessary tc compare 
SHIPSHOR against another Simulation (CAAM) to verify the 
output. CAAM was used in a study conducted by the Marine 


Corps in 1983 (see [Ref. 9]). The method for comparison 
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was a graphical technique in which the output from each 
model was used. The parameters for the  simualation were 
Similar so that a direct comparison could be made. A ten 
percent confidence interval was placed around the output 
from CAAM to provide a feel for the similarities. 

The results of the above procedure prodiced outputs 
which were very close. There is no way to place a numerical 
value on the compariscns that would make any sense. Thus, 
the method employed for phase two of the validation is more 
subjective than objective. However, the confidence in 
SHIPSHOR, based on the validation conducted, should Ге as 
high as that of CAAM. 

Finally, sensitivity analysis was conducted on 
SHIPSHOR using a variety of parameter sets to observe how 
the mcdel behaved. The results were portrayed graphically 
which prcvided a feel for the performance of th» simulation 
when conducted under different conditions. This analysis 
demonstrates which parameters affect the model greatly and 
which have a lesser influence on the results. 

The details of validation and sensitivity analysis 
сап be fcund in Chapter V of this thesis.. The analysis was 
not, by any stretch of the imagination, all encompassing. 
That would reguire a considerable amount of study due to the 
large number of parameter combinations that might te tested. 
However, the analysis that was conducted can be repeated 
under many conditions of interest to give further enlighten- 


ment to the user of the model. 


Е. CURRENT AND ADDITIONAL APPLICATIONS 


1. Current Use 


Current interest in the ship-to-shore nodel exists 
in the plans and operations section of HQMC for amphikicus 
853 9 ء٦‎ The model can provide a desk-top decision 


aid for immediate ‘what if' type questions. 
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The model cculd oave application during an anrhir- 
ious landing to determine the progress of the landing. This 
would also provide historical data for continued validation 
and refinement of the model. Dacre rola та utilization in 
the planning phase of an operation could provide a ccmmander 
with estimates of the time involved to land his forces using 
a particular scheme of maneuver. He could investigate the 
effect of changing various input parameters within the model 
to aid in his decision process. For instance given his 
force size, he may want to determine the minimam number of 
heliccpter landing zcnes which would give him an acceptarle 
Luild-up asbhore. 

Automation of the construction Oof tha wave апа 
Serial assignment  tarles would reduce the large amount of 
time required for input data preparation. This would result 
in a self-contained snip-to-shore model with realistic 


combat uses. 
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zhe Analysis 
Development Center, 


The 


original mcdel was delivered in an unusable form which 
prompted revision by the authcr. The purpose ) f the model 
is tc simulate the movement of units of various sizes from 
anphibious shipping to shore via surface and heliccpter 
Exsansrortation. 

The purpose of tke user's section is to provide nonpro- 
ganning users of the ship-to-shore model with the infcrma- 
tion necessary to use the model effectively. то ассошр 15 
this end the following section will describe the model, give 
details for the model input data, explain the model output 


data, and give some sample runs and examples. 


С. DESCRIPTION OF TEE MODEL 


1. Cverview 


a. Model Identification 


The model documented in this шапці 1 іѕ named 
ض8‎ ٠ It is designed to simulate the  movemert of nen 
and equipmert via helicopters and surface craft £rom anphib- 
ious shipping to shore dorirng Тап апр Еп landing. 
SHIPSHOR is written in Microsoft Basic and designed to be 
used cn an IBM PC. However, it can be modified to run cn any 
pc which car be converted to run MIcrosoft Basic formatted 
EOE NLOS. Currently SHIESHOR haS no relation to any cther 


nodels. 
E. Physical System Highlights 


The nmajcr activities during a siip-to-shore 
movement for either helicopter-borne or surface-borre units 
are listed in Figure C.1 

The first activity is the loading phase. This 
takes place aboard the amphibious shipping located in its 
designated sea echelcn area. It consists of the loading o£ 


troors and/or equipment aboard helicopters or surface craft. 
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Flow chart of the system 
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Figure C.1 Flow Chart of the System. 
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The launching phase follows loading ind invclves 
the launch and rendezvous of the carriers in order to 
proceed to shore aS an entire wave. Once the wave is 
constituted it travels via prescribed routes to its 
destination. 

Approach, landing, and off-loadinj transpires 
next at the appropriate destination. This phase of the 
amphifious landing is where combat attrition is most likely 
to occur. both landing craft and helicopters are most vuln- 
erable іп а static situation while troops and equipment 
6 lcad. 

The return transit takes place for all carriers 
except LVI's (amphibious tracked vehicles) which proceed 
inland. Upon return to amphibious shipping the transports 
must wait for an opening on the flight deck or the well-deck 
to land (dock). The vehicles will then refuel and prepare 
for their next trip ashore. The cycle is then repeated 
until ali necessary assault waves are ashore. 

Each class of wave (scheduled, on-call, and 
nonschedtled) will execute all the events listed above. Тһе 
order in which each class of wave will commence the cycle is 
normally (1) scheduled, (2) on-call, апа then (2)  nonscne- 
duled. However, on-call and nonscheduled waves can inter- 


rupt the sequence depending on the situation ashore. 
с. Model Applicability 


The model, called SHIPSHOR, can be used to 
determine kEuild-up cf troops and firepower ashore versus 
time. It can also be used to compare various changes in the 
number and size of landing zones (beaches), numbers of 
carriers, numbers of amphibious ships, distances from 
mauneh, deck spot utilization, and attrition. These сара- 
bilities of the model are concerned with the utilization in 


the planning of operations as well as use during the 


execution of the plan. The model accomplishes the above 
tasks through a series of subroutines which calculate the 
time for certain events to occur, then it executes those 
events seguentially. (See Figure C.2) а detailed explana- 
tion of the subroutines can Бе found in the programmer's 
secticn. 

The Sshir-to-shore model can be aitilized in 
studies invclving amphibious oferations to determine optimum 
carrier number, launch distance mixtures, deck spot utiiiza- 
tron? "etc. The model could also be employed in a plarning 
mode to predict approximate troop build-up ashore given the 
unit, distance of launch, number of carriers, number of deck 
spots, etc. This could be utilized in the planning phase of 
an operation to provide a commander with estimates of the 
time invclved to land his forces using a particular scheme 
of maneuver. He cculd investigate the effect of changing 
varicus input parameters within the model to aid in his 
decision process. For instance given his force size, he may 
want to determine tke minimum number of helicopter landing 


zones which would give him an acceptable build-up ashore. 
d. . 8 7:7۶٤۶ 


There are three basic categories of data input 
for SHIPSHOR. The landing plan data file is the largest and 
most impcrtant. It contains the wave and serial data which 
are such itens as personnel, wave nunber, destination, fire- 
power sccre, type of carrier, class of the wave, etc. Тһе 
second data file is called T-1.dat and is made up of all the 
parameter data which is not likely to change »ften. The 
third source of input data is either interactive input or 
line input (to chance parameters within code). This data 
consists of parameters which will be changed often during 


sensitivity analysis. 
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Figure C.2 Flow Chart of the Model. 
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The output of the model can be nodified to 
reflect the on-going utilization. For exmaple, if the MOE is 
build-up ashore, the output could be personnel and firepower 
ashore at given times. This data could be printed or sent 
to a file for use in a graphics program to plot the 


build-up. See Figure C.3 . 
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' Figure C.3 Graph of Build-up Ashore. 


Total tire to land a particular sized force 


could Ге obtained for several different sets of input data. 
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Then a graph could Ee made ccmparing the various sets of 
unputs to obtain sensitivity analysis for the desired paran” 
eters. For details of the coding requirements, see the 


programmer's or user's section. 


2. Methodology 


а. Physical System Detaiis 


The follcwing gives more details fo: the phys” 
icai system being modelled and is an elaboration of Physical 
System Higklights section: 

e Loading phase: The loading phase can only take 
place if there are sufficient carriers availalle 
to load the entire wave. Also, there must be the 
requisite  rumber of deck (well-decki: spots to 
accomodate the carriers which are to load. Once 
those conditions have been met the first activity 


can be completed. 
e Launch phase: No additional details. 


e Unloading phase: The conduct of this piase derends 
upon two restrictions. The beach or landing zone 
must be large enough to accomodate the current 
wave. If the preceeding wave is still fresent, 
the landing area may not be large enough which 
will cause a delay. Also, the current wave may be 
tco large Ey itself which means only a limited 
number of boats or helicopters can off-load while 
the other vehicles await an opening. 


e Return phase: No additional details. 


e Arrive back phase: This phase can oe ccmpleted 
when there isa sufficient number of deck spcts 


(well ог flight) to accomodate the returning 
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vehicles. Once the wave of vehicles has landed 


the cycle can repeat itself. 
Е. Model Logic and Ula CIO 


The model utilizes 35  subroutines t» attempt to 
translate reality intc mathematical computations. A diagram 
of the model in very general terms is found in Figure C.2 
The first subroutine in the program reads the data from the 
wave and serial file and the parameter file. Also the vari- 
able data is entered within the first section ог the 
 ظ‎ 7٤ The second subroutine initializes the arrays and 
clocks to be used by the timing and activity subroutines, 
tased on the information found the wave data file. These 
subroutines essentially complete set-up and initialization 
ci the model. 

Once the model enters the EXEC subroutine it 
continues the time/event procedure until all waves have been 
landed. The EXEC sukroutine is the control routine in which 
all waves eventually rass. Based on the class of the wave 
(air or surface) and the current activity (load, ٣ 
unload, return, or arrive back ship), the EXEC subroutine 
will send the wave in guestion to the proper subroutine for 
папар ота саса: 

Prior to going to one of the activity sukrou- 
tines, the program gueries whether certain flags have been 
set. If they have been set, one of the following routines 
could ke called. Five are for helicopter waves and four are 
for surface waves. They are: 

e RESTART(helc) / BESTART(surface): Restart timing 
for waves that have been stalled by the lack of 
deck spots (helio or surface). Since in reality 
there are nct enough spots available to load all 
of the assault carriers at one time, subsequent 
waves may be delayed. This routine restarts 


timing after such a delay. 
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w O B (hero) / STOCI{surface): These subroutines 


Start the on-call waves to load ate: the final 


scheduled wave has begun to load. 


« HALTSH(helc) / 


HALTSL(surf): Stalk remaining 
Scheduled waves when one or more on-call waves 
interrupt the scheduled category. As in reality, 
on-call waves can break in when called for. The 
model allows flags to be set to simulate this 


process. 


e SISH (helo) / STSL (surface): Start scheduled waves 
that have keen stalled due to on-call waves inter- 
rupting the sequence. More than one on-call wave 
can interrupt at different times SO the 
٦۰٦758 )07(:/ ۶151 (ا)‎ subroutines can be called nore 
than once. 


e HCKLD (helo): Reevaluates deck spot enployment if 
the current wave does not occupy all spots avail- 
able. It calls WSPOT which calculates the number 
Cf spots to be used in the current wave. 

One last subroutine will be called prior to the 
activity subroutines. This is the MSORT routine which acts 
as the master sort rcutine. It takes the lowest time from 
six other time/fevent sort routines and that becomes the next 
event which is prcecessed by the appropriate activity 
subroutine. 

There are three time sort routines common tc the 
heliccpter activities and three time sort routines ccmmcn to 
the surface activities. They all sort through the waves 
identifying the wave with the earliest time for the next 
event. That wave is placed on the top of the queue from 
which MSCRT then picks the lowest time out of the six time 
Sort routines. Listed below are the sort subroutines: 


e HSSORT: Scheduled helicopter wave sort routine. 
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« HCSORT: On-calt helTrcopter wave ESOT E OUT ENE 
٭‎ HNSORT: Nonscheduled helicopter wave sort routine. 


e LSSORT: Scheduled surface wavegsortoROoHPIMe- 





« ICSORT: On Call SULCEICCG Wave Some moter nc. 


LNSORT: Nonscheduled surface wave sort routine.‏ ٭ 


The activity subroutines process each wave based 


on its class, activity coder and category (scheduled, 
on-call, cr nonscheduled). There are five major activity 
subroutines for each class (air or surface). Each activa, 


subroutine calls otker secondary routines andthe аррго- 
priate time sort routine as determined by the ware category. 
Cnce the wave has ccmpleted an activity subroutine, it 
returns to the EXEC subroutine and the cycle begins again. 
Thus, cach wave will eventually cycle through. five 
subroutines. 

The following is 3a sunmary of the activity 

subroutine and their supporting routines: 
٭‎ HRID: The purpose is to load (or attenpt to load) 
a helicopter wave from available flight deck spots 
of the Shipping. Loading will not be‘initiated if 
(1) no deck spots are currently available ог ії 
(2) insufficient helicopters of the proper type to 
carry the serials are present at the time. HELD 
calls the appropriate time sort routine (HSSORT, 
HCSORT, -Or HNSORT) and subroutine SPOTS. The 
SFOTS routine identifies whether all the deck 
spots are curently being employed for loading. A 
flag is set to indicate whether deck spots аге 


available cr not. 


e HLNCH: This routine launches a helicopter wave 


from ships and determines the time it will arrive 


at the landing zone(s). It determines the number 
or deck  spcts made available to subsequent waves 
and restores those spots. Also it reevaluates the 
leading time for a wave being loaded which had 
employed all of the remaining deck spots. HLNCH 
calls the appropriate time sort routine (HSSORT, 
me rent 7 Or NSORE)y and HLODGK and RESTA ET. HLODCK 
sets up Signals that will initiate a reevaluation 
of the deck spot employment in the event that the 
current wave was not employing the last availatle 
deck spot. Those signals will trigger the use of 
HCKLD which is called from EXEC. If the current 
wave was  cccupying the remaining dec« spots, a 
۶13۹73-05 сет to call RESTART from EXEC. RE STARE 
allows subsequent waves to employ deck spots which 


will be vacated by the current wave. 


HUNLD: HUNID determines whether or not landing 
zones are still occupied by previous waves and if 
sc delays the landing of the current wave until 
the pertinent zones are free to use. 146ھ‎ ٣ 
calculates the length of time necessary for this 
wave to unload (constrained ру the size of the 
landing zone). HUNID calls the appropriate time 


Somreuwout)ne (HSSORTISHCSORT, or HNSORT). 


ШЕЛІ: The purpose is fe. print a running total cr 
the personnel ashore and the firepower ashore. 
Also HRTN calculates the time that the wave will 
return to the area of the shipping and hence be 
available for formaticn of subsequent waves. It 
calls the appropriate time sort routine (HSSORT, 
HCSORT, or HNSORT). 


7[7 3 16 85ط 


HARIV: HARIV returns helicopters troith helieccp yon 
Icols for use in forming subsequent waves after 
degrading the number of helicopters to reflect 
maintenance losses. It also initiates the leading 
process for subsequent waves. HARIV calls 6 
appropriate time sort routine (HSSORIT; HCSORT ШЕР 
 ٗ 3 ie 

The surface activity subroutines operate in 


- 


the Same manner (the first letter or surface 


activities is B instead of H). Since the following routines 


are sc similar to the heliccpter routines, only the differ- 


ences will ke pointed out. 


ЕКІ): The purpose is to load the landing craft in 
a similar fashion to the HRLD for helicopters. It 
calls the appropriate time sort routines (ISSORT, 
LCSORT, or LNSORT) and the subroutine TED 
WELDEK calculates the well decks to be used by 
landing craft of each wave and indicates whether 


there are sufficient openings or not. 


ELNCH: This routine launches the surface waves 


from the ships. It calls the appropriate time 
Scrt routine (LSSORT; СБОКУ ИЕР 


BUNLD: BUKID determines if the beach is cpen for 
landing and offloads the wave if it Ls possible. 
It calls the appropriate time Sort routine 
(155О0ВТ, 1С5ОҚТ, ОТИ БОЕ 


BRIN: BRIN prints the running total of personnel 
ashore and the firepower ashore. Also, it returns 
the boats te the ships. Et calls the appropriate 
time sort routine (LSSORT, LCSORT, or L NSCRT). 


BARIV: This routine returns the boats to the boat 


Fools for subsequent use. It cales the 


ар орг аен ше еогЕ Subroutine (255017,  LCSORT, 
GE LN SORT) 

Once each wave has cycled through tha five heli- 
copter activities or the five surface activities, they are 
assigned avery large value in their time array. This 
prevents them from recycling. The program will end when the 
last nonscheduled surface wave has gone through all activi- 
ties. At that point, all personnel in the wave data file 
will te ashcre. 


3. Assumptions and Limitations 


а. System Related 


Assumpticns which affect the results of the 
model are as follows: 


e Helicopter and boat time factors are expected 


values as opposed to stochastic values. This 
assumption is considered reasonable since the 
factors are used many times. This lends itself to 


the use of averages according to the central limit 
theorem. 

e There is an attrition rate which is predetermined 
and set as a constant. This designates mechanical 
and/for combat attrition. The value used is tased 
on experience and not on any factual data therefore 
it is considered an assumption. 

e All time calculations are assumed to be rounded to 
the nearest minute. 

e Environmental effects are assumed to negligible 
which implies load limitations of the helicopters 
and landing craft are based on an averaje day. 

Limitaticns of the model depend highly оп the 


model purpose. The following are the major limitations: 
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e In order to rum the surface portion of the model, 
there must ke a sufficient number of carriers to 
land the scheduled and on-call waves. 

e Each helicopter wave must use the same type of 
helicopter. Since the model computes all activi- 
ties and times based on a particular wave, the 
speed of the aircraft must be the sane. 

e Once the lcads are assigned to а wav2 and heli- 
copter type, they can not be switched during the 
Simulation. Therefore, unlike the flexibility in 
reality of switching loads to available crart, the 
model does not have that capability. 

e Waves and serials are not designated to a partic- 
ular ship. Therefore, the Simulation looks at the 
total number of deck/well spots for the entire 
amphibious fcrce instead of those individual ships 
to which craft are assigned to load. 

e There is a max of four landing zones or beaches 
that can be used for any landing. This сап ЕЕ 
modified if more are desired by making a change in 


the code. 
p: Model Parameters 


The model parameters must agree with each other. 
For example, the parameter TA (number scheduled helo waves) 
must reflect the numker of waves found in the serial data 
Input fie. If a parameter value is changed, caution must 
Le exercised to ensure other values are not affected in an 
adverse manner. This becomes very apparent when the landing 
plan data file is changed. That change affects the numter 
of wave parameters, the number of serial parameters, anda 
host cf cther values. The 'help' file gives guidance along 


these lines. 


С. Output Linitations 


As with any model, results from th2 simulation 
must be used judiciously. The model output is only as good 
as its validation and verification. Even then, no model is 
perfect and results must be used cautiously. SEIPSHOR must 
undergo a rigorous validation and subsequent modifications 
in a series of actual amphibious operations before its 


pu-Suctive capabilities are verified as reliable. 
а. Restricticns on Model Use 


As with any model the current aodel should be 
considered as an approximation of a complex process which 
contains many variables. It is not designed to produce 
results cn which policy сап be based. It is, however, to be 
used to give an estimate where only a bad guess would exist 


ctherwise. 


L. MCDEL INPUT DATA 


1. General Description 


Input data is broken down into three categories. 
The largest group of data is fcund in the iandinj plan file. 
The file requires the manual construction of serials and 
assault waves ina specific format. The format is found in 
the 'help' file and the user's manual. An example of this 
file is listed in Figure C.4 . 

Two other data sources are needed to rua the model. 
Cne file ccntains parameter values which are not sukject to 
change and is called T-1.dat. See 'help' file for the 
Bormat. Figure €.5 is a listing of the file. A heliccpter 
time factors table which prcvides expected times for various 
evolutions is an example of the type of data found in this 
file. 
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Figure C.5 Example of Data File T-1.DAT. 


The last data source is found within the program 
itself as either a line of code or as an interactive query. 
This data is of the type that may be changed easily for 
various types of analysis. See 'help' file and Figure C.6. 


The data scurces are summarized in Table XVII. 


== — = eee 
= = a - 2... 













RUN 

k OF SERIAL LINES OF DATA FOR SCHED, ON-CALL, % NONSCHED HELO THEN SURFACE: 69,23,0,40,0,0 

Setup 12907 

EES BY TYPE (LHA LFH LSD, LFD, LST):5,7,1,9,1 

157 TURNARSUND SCHED HELO WAVE: 14 

& OF BEACHES AND # OF LANDING ZONES:4.,7 

HELO LAUNCH DISTANCE, BOAT LAUNCH DISTANCE, AND SHORE TO LZ DISTANCE:50,2,5 

LHOUR SND HHOUR: 017009, 0 

Е ОЕ HAVES IN ORDER SCHED, ON-CALL, NONSCHED HELO THEN SURFACE: 23,10,0,19,0,0 

$ OF HELOS THAT CAN OCCUPY &N LI AT ANY ONE TIME BY TYPE (CHi5, CHSZD, CHSZE, UHIN):10,9,3,16 

*& OF CARRIERS BY TYPE (CH46,CHSSD,CHSSE,UHIN,LVT,LOMS,LOMS,LCU,LST, LARC): 156,90, 52,0,289,52,3942, 23,0, 12 
$ OF SURFACE CRAFT THAT CAN OCCUPY A BEACH AT ANY GNE TINE BY TYPE (LVT,LCHS,LCOM8,LCU,LST,LARC):4,5,4,2,1,4 


INPUT АТА РШЕ КАМЕ: РЕ. ПАТ 
OUTPUT FILE NAME: TEST! 


a a e a i i ey ee ee ee ee ш аш шшш шш | 


Figure C.6 ExaBple of Interactive/Line Input Data. 


TABLE XVII 


Summary of Input Data Sources 


Category Name Data Media 
Landing plan LPE.DAT Disk Fi le 
Fixed parameters Т-1.рАТ Disk File 
Interactive == Termina l 
Prógram lines === Listing 


a. Іапаіпо Раа лее 


The landing plan file contains tie wave and 
serial data which is rrocessed by the model. It has tyre of 
carriers, number of rersonnel, wave number, destination, 
eve. fer each serial going ashore. Its purpose IS Vee 
provide the model with the troop unit, equipment, and trans- 
portation information which will be ‘moved ashore -by the 
Simulaticn. 

Each line in the data file contains twelve 
pieces of information which the model requires. These are 
explained as part cf an example listed in figure C.7 . 
Figure C.7 isa part ofa 'help'! file which located on the 
same disk as the main rrogram and is for use in constructing 
the data file. A copy of the "'help' file is located in 
Appendix E. 


b. Fixed Parameter Data File T-1.DAT 


This data file contains parameter values which 


are not subject to ccnstant change. The three major tables 
of this type are tke helicopter time factors, toat time 
factors, and operaticnal deck spot tables. The first two 


provide the expected times for various evolutions to utilize 
and the last gives tke deck spots under various conditions. 
Tables XVIII, ХІХ, апа XX list the data which ace read fron 
I-i- DAT: Тһе  purpcse of this file is to read data into 
various arrays within the program which will be used to 
compute event times. 

The first two lines of the T-1.DAT file refer to 
Table ХХ The data is listed in the file row by row from the 
table. Thus, the first twelve values come from row cne of 
the table. The next line contains data from table XVIII It 


is listed in the same manner as Table XX except the first 
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tyre land the 


THE FOLLOWING IS AN EXAMPLE OF THE DATA INFUT FOR ALL WAVE 
INFORMATION, THE FIRST LINE OF LETTERS AND NUMBERS IS AN ACTUAL LINE OF 
DATA FOUND IN THE LFE.DAT FILE, THE CORRESFONDING LETTERS WILL EXPLAIN 
EACH COLUMN OF DATA. 

ТТ IT 18) 31D1206 863108978 DR b4lS 07 777 

Ay Rs CoP E+ F нир, к.т 
А: THE NUMBER INDICATES THE WAVE + ANI) THE LETTER REFERS TO THE 


CLASS OF THE WAVE (S=SCHEDULED:» Q=ON-CALL» N=NON-SCHEDE) .MQRE 
THAN ONE LINE OF TATA (CALLED A SERIAL) CAN RE OF THE SAME WAVE 
NUMBER. EACH SERIAL RUNS SEQUENTIALLY FROM i TO THE LAST SERIAL 


The CLASS. 
: RESERVEN FOR FUTURE USE. 
' NUMBER OF FERSONNEL IN FARTICULAR SERIAL OF A FARTICULAR WAVE 
ШЕР: RESERVEN FOR FUTURE USE. 
‚ MOIE OF TRANSFORTATION, (A-HELO» S-SURFACE) 
: CATEGORIES OF CARRIERS. A THROUGH K CORRESFOND TO i-ti. (1=CH46E 


2-СН53І» 2-СН52Е» 4-МНІМ, S=LVT>» 6zLCM-6; 7-LCH-8: 8-LCU» 9-LST» 
LO=LARC,» 11=LCAC). CARRIER TYFE MUST RE THE SAME FOR THE SAME 


WAVE. 
Ii NUMBER OF CARRIERS IN THE SERIAL 
Ji ТҮРЕ LOAD (I-INTERNAL; E-EXTERNAL»; C-COMBINATION) 
№: DESTINATION: (R-1 THROUGH Е-4 КЕҒЕК5 TO REACHES #1 THROUGH #4 


АМП К-1 THROUGH R-4 REFERS TO LANDING ZONES #1 THROUGH #4) 


Nt ` WEAFONS UNIT VALUE (WUV-FIREFOWER SCORE) 
END OF FILE 


٠۰٠٠٣001009 1 
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Figure C.7 Format for the Landing Plan File. 


four values come from the first row of the table. Line four 
lists three helicopter speeds then six landing craft speeds. 
The vehicles for which these speeds are listed are:  CH-53, 
EX UH!IN, LVT, LCM-6,—LCHM-8, LCU, LST, and LARC. Ihe 
last two lines of the file contain data from Table XIX They 


are also listed by row. (see Figure C.5 ) 
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TABLE XVIII 


Helicopter Time factors in Minutes 





Type of 
Helo wave operation Internal External 
Land in zone 0 0 
Disezrbark troors (cargo) 1 1 
Takeoff/rendezvous from LZ 4 4 
Maneuver/land ship 1 1 
Refuel/fembark troops (cargo) 5 8 
Takecff/rendezvous from ship Ц 0٦ 
Maneuver/land in LZ 4 4 
Safety clearance time 1 1 
c. Interactive Data 
Although this source is not a file, it is the 


final means used to assign values to the remaining vari- 
ables. Once the first two files are prepared, the model is 
loaded into the computer and initiated. The program will 
guery the user to input data for the parameters which are 
most likely to change during any type of analysis. An 
alternative is to change the code within the program itself 
where scme of these values are found. The parameters that 
are reguested by the interactive input are listed in the 


Table XXI . 
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TABLE XIX 


Boat Time Factors in Minutes 










Boat type 
Boat save operation LYT LCS-3 1СМ-8 LCU LST LARC 
(1) Land at beach for LZ) 1 1 1 1 1 1. 
(2) Disesbark troorgs/load ц 10 10 10 10 10 
(3) Rendezvous for return 71 1 1 1 1 1 
(4) Deck time to ship (well deck) 0 10 10 10 10 10 
(5) Refuel/esbark troops/load 0 5 5 5 5 6 
(6) Circle and rendezvous 1 2 2 2 2 2 
(7) Land at beach 1 1 1 1 1 1 
(8) Safety clearance tine 1 1 1 1 1 1 
3. Data Collection and Maintenance 
ға. Data Sources 
Two documents must be completed БЕЛ ОНЫН to 


construction of the landing plan files. These docurents аге 
the Heliccpter Wave and Serial Assignment Table and the 
Landing Craft and Amphibious Assignment Table ( [Ref. 10: 
29] ). They are normally prepared during the planning 
phase of the amphibious operation. Once these ddcuments are 
completed, the necessary data exists for compilation of the 
landing flan file. 

The preparation of the preceeding two documents 
is a very large, time consuming endeavor. It is extremely 
complex and its intricacy goes up exponentially as the size 
of the unit. Unfortunately, an automated system for this 


task does not exist at this time. 
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TABLE ХХ 
Operational Deck Spots 


| 

| 

| 

| Internal External Combii ation 

| Loading Loading Loading 

| Shir type А В С OD А В С р А В CHED 
ЫНА(%1) 9r. یی‎ 7۰ өл аа с лала ы 

| LEH (#2) 7 4 4 7 ТАЗ 2 EET 7 4ء‎ ٤7 

l LSD (#3) Th Ste) 12172717461 1-1 701 

| LED (#4) 2% ЧДК 57 DET 1 1 1 1 

| LST (#5) 1; [ 0۷" EO (0.050 $9 





Helo types: A-CHAUCOE B= CH53D C=CH53E D=Ui 1N 


жәке Se |‏ --,ف ‏ ص7 1 3 - - 0 ۸3[ ,99ض ےی یس کے سک سے ا 


Sources for the remaining data file and interac- 
tive parameters depend on the make-up of the fleet, number 
of helicopters and landing craft available, distance to 
launch, есе. Fixed values such as the helicopter time 
factors are expected values found in Marine Corps 
Fublications such as reference 7 dealing with amphitious 


operations. 
Е. Updating Frocedures 


Each time a new landing plan file is used, all 
the parameters pertaining to the number of waves, the numer 
of serials, the number of landing craft for scheduled and 
on-call waves, the name of the landing plan file, etc. must 
бе changed to ccnform to the new data. If this. is noe 
accomplished an error will occur identifying the line in the 


code where an inconsistency was found. Most of those values 
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71—12 
is 
14 
15 
16 
17 
18 
19 
20 
21 
22 
د2‎ 
24 

25-28 


29—38 


39-44 
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me 


are found 


Order of 





Interactive Parameters 


CS 
MS 

NUS (I) 
TRNH1 
NNB 
NLZ 
А5АГ15 
LODLIS 
ООС 
HSWAVE 
HCWAVE 
HNWAVE 
LSWAVE 
LCWAVE 
LNWAVE 
HGF (I) 


AT (1) 


LCF (1) 


| 


TABLE XXI 


Name Definitioi 


Sched helo serial # 
On-call helo serial * 
Nonsched helo serial # 
Sched surf serial % 
ОПЕ СЗ = ШЕЕ егі ат я 
Nonsched surf serial # 
Ship type (five types) 
Ist turnaround waive 
Number of beaches 
Number of 125 

Helo launch disti nce 
LVT launch distance 
Shore to LZ distance 
Sched wave # 

On-call wave # 
Nonsched wave # 

Sched wave # 

On-call wave # 
Nonsched wave # 


* helos max in L7 
by type (4 types) 


# carriers by type 
(10 types) 


# boats max at b2ach 
by type (6 types) 


ES жабғы. ees ED SE ey Ce sce I Ges متت‎ es I curro ae a ee تھے سک‎ А تک‎ СС eg ME ааа es as a a, I AMM | ae ES سرب کے سو ی فوت ہے‎ йыш ہےوں۔‎ r et ы امھ سے سی سے‎ ee Se ee Se, ту 


| 


interactive mode which helps to prevent 


those types of errors. 
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Other parameters can be changed for Sensitivity 
analysis purposes. Since there is such a larje ٦ 
parameters, all possible combinations have not been experi- 
mented with. Therefore, there exists the chance that a 


certain comtination cf parameters will produce an error. 


E. MCDEL OUTPUT DATA 


1. General Description 


The output of the model can assume a variety of 
forms depending upon the immediate purpose of : he run. A 
detailed print out cf each wave and its status at various 
times can be obtained by changing the PRINT command to 
IPRINT in line 3692 cf the program as explained in Appendix 
С. Currently this output is suppressed to expedite the time 
to run tke simulation. 

Ancther form of output is the output data file. The 
current edition cf the model sends the time, total ferscnnel 
ashore, and total firepower ashore to a file for use in 
graphic presentations. The program will prompt the user to 
input that data file name during the ۰71811 2 +++/++ ٣7٦ 


model. 


2. Letailed Description 


a. Printed Cutput Data 


The following terms used in Table С.8 аге 
defined: 
е ave: The wave number currently being processed 
٭‎ Activity: 1=1оаа, 2-launch, 3=unload, G=return, 
S=arrive. Describes the landing activity currenti 
teing conducted. 
e Mode: 1=helc, 2=surface. Describes whether the current 


wave is helo or surface. 
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e Min: The time of the current activity. 
e FASH: 
e FIRFWR: Firepower ashore and percent firepoier ashore. 


Personnel ashore. 





| 


ee m 


ПЕТУ 


ee چ‎ ee ee БАР سے ت‎ 


0+0 CLASS 1 WAVE 10 1 MODE 
ҰШЫ 22 [I PISIS I WAVE 9 ACTIVITY 2 MORE 
M 22 CLASS 1 WAONE 11 ACTIVITY 1 HODE 
ШІН 298 CLASS 1 WAVE 10 ACTIVITY 2 MODE 
[nn 29 6 І WAVE 12 ЕМЕ 1 HODE 
ШІП! 21 CLASS | WAVE 11 рүү? HODE 
ШЕ 22 CLASS 1 WAVE 12 pede 1 MODE 
MIN 24 CLASS 1 WAVE 12 ACTIVITY Z HODE 
ШІ! 25 7+ ٦ WAVE 14 ACTIVITY 1 MODE 
ШІМ 37 CLASS 1 WAVE 13 о 2 MODE 
МІМ 28 CLASS 1 WAVE 14 0" bY -1 MODE 
MIN 41 CLASS 1 WAVE 1 Е МОРЕ 
MIN 42 CLASS 1 WAVE 2 ACTIVITY 3 KODE 
МІМ 42 CLASS 1 WAVE 1 ACTIVITY 4 HODE 
КООН Total: 2644 

time: 47 

۰۰51۳60۲۲ ASHORE 1845 oon ee ү: 

ІШІ کہ‎ CLASS 1 WAVE 2 ИТОГУ = Nope 
МІН 4.5 LASS WAVE 2 Clee s S MODE 
ШІМ 4.3 CLOSS I WAVE 15 fie del yi ty 1 MODE 
MIN 45 menos | WAVE 2 ACTIVITY 4 MODE 
HASH Total: 768 

Limes: ۹ 

FIREFUR ASHORE 2490 60ت‎ 

ШЫ 45 CLASS 1 WAVE Ж ACTIVITY 3 MODE 
HIN 44 0" ٦ WAVE 4 А ТЕ MODE 














i کے‎ 





Figure C.8 Example of Output. 


Е. Output Data File 


The name of the output file is deternined by the 


user when the prompt queries for output data file name. The 
to the 


first column is the 


three 
of the 
second and 
the 


first 


đata which is sent output file consists of 


Ihe 


off-loading ashore 


time in minutes 
The 


ashore and 


columns. 
of a particular wave. 
ccntain the total personnel 
for the 


An example is found in figure C.9 


third columns 
total 


column. 


firepower ashore time listed in the 
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29.00 384.00 0.03 
27.00 768.00 0.07 
41.00 1018.00 0.10 
47.00 1856.00 0.16 
dd ھ 2 ۹3ٗ٘ ٴ‎ ٦ 0.18 
6.3.00 23428 ٤7 t 
6599700 269499 0.2 
7/100 2030007 0.30 
7500. 22169009 0,231 
77۰ Oo (241 
865 ۰,90۰۰3 5 09ف 0ے‎ 
87.00 3693,00 0.32 
89.00 4053.00 O37 
742,00 430,00 ОзУ 
99,00 828552790 0.41 
101.00 4645.00 0.46 
1۰۱ ص7۷‎ 0.46 
۹ ۹ ۹ 4 1 1 1 аш» 0.50 
139.00 30799 U E0 
14۶ "09,97 ۷ 0.54 
1532,00 5566500 0.24 
12007 0 0.34 
212.00 [6266700 On ces 
218.90 6467,00 Oma? 
ааа оби SCOT 0ص‎ 0:97 





سے :> ومو و و чш: чыз‏ | 


Figure C.9 Example of Output File. 


SAMPLE RUN 


See Chapter V of thesis. 


VARIABLE NAMES AND LOCATIONS 


See Section F of Appendix Р. 
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В.  INIRCDUCTION 


The ship-to-shore model was initiated by :he Analysis 
Support Branch of the Marine Corps Development Center, 
Guant ico, Va. in suppert of the Amphibious Lift Study. The 
criginal mcdel was delivered in ап unusable form which 
Frompted revision by the author. The purpose »f the 1س‎ 
is to simulate the mcvement of units of various sizes from 
anphibious shipping to shore via surface and heliccpter 


Eransportation. 
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The purpose of this manual is to provide programmer 
perscnnel of SHIPSHOR with the information necessary to 
effectively maintain and modify the model. Although the 
flow diagram of the entire model exists, due to its bulk it 
was nct included in this thesis. However, the author will 


Maintain a copy of tke flow diagram if one has n2ed of it. 


С. MODEL SPECIFICATICN 


The following prcvides а short summary of the model 


specifications. 
1. Eurpose 


The purpose of SHIPSHOR is to simulate ai amphikious 


Ship-to-shore movement. 
2. Host systen 
IEM Personnel computer 


3.  Erocessing reguirenent 


i 


ІВМ PC with €4K RAM and a printer 
0 language 
Microsoft Basic 
5. Capabilities 


e Cbserve build-up of personnel and firepower ashore 
e Sensitivity analysis for operational planniig 
e Time seguence of each landing activity for each wave 


e Predict troop build-up to gauge progress of landing 


6- Limtatations 


e Must have sufficient surface carriers to laid scheduled 


and on-call waves 


e Fach helo wave must use the smae type of helicopter 


e Loads assigned tc a particular wave cannot be switched 


PE MCDEL DESCRIPTION 


1. Cverview 


ہے ہے ہے Eg Some‏ سس [a‏ = 


The model dccumented in this manual is named 
БШНІРЕНОВ. It is designed to simulate the movement of men 
and equipment via helicopters and surface craft from amrhib- 
ious shipping to  shcre during an amphibious landing. 
SHIPSHCE is written in Microsoft Basic and designed to be 
used cn an IBM PC. Hcwever, it can be modified t» run cn anv 
pc which can be converted to run MIcrosoft Basic formatted 
CSE DOS. Currently SHIPSHOR has no relaticn to any ctter 


models. 
2. General logic flow 


The model utilizes 35 subroutines to attempt to 
translate reality intc mathematical computations. A diagram 
of the model in very general terms is found in Figure D.1 
The first subroutine in the program reads the data from the 
wave and serial file and the parameter file. Also tne vari- 
able data is entered within the first section of the 
program. The second subroutine initializes the arrays and 
clocks to be used by the timing and activity subroutines, 
based on the information found the wave data file. These 
subroutines essentially complete set-up and initialization 
of the model. 

Once the model enters them errer Subroutine it 
continues the time/event procedure until all waves have been 
landed. The EXEC sukroutine is the control routine in which 
all waves eventually pass. Based on the class of the wave 
(air or surface) audethegcurrept'actowrtyvwtloid, launch, 


адай, return, Or arrive back ship), the EXEC subroutine 
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RESTART: restart timing for wave stal'ed for !nsuftf nelos 
STOCH: start on-call helo after fine) weve Degen to Toad 
STSH: restert sched meves after stall by on-call Intervot 
HALTSH: stel!l sched slr for on-call Intervet 

BESTAAT: reetert timing for orf weves stalled for insuff boetes 
$10CL: start on-cell efter fina! sched 9urf weves began to loed 
STSL: restart sched weaves efter etali dy on-call fínterupct 
HALTSL: etel! sched surf for on-call Intervot 

MCKLO: reevaluetes deck spots ff current weve not occupy a1) spots 





INPUT АМО 
INITIALIZE OAT 


EXEC:controle | 1f fleg set 
sutr out Ines 
and tialing 





























етө 
sort routine 








Goes to subroutine depending on activity code end clese 










HARIV: Nelo 


HRIN: helo 
erríve sip, 

























а tine 


HSSORT و اک‎ 
or WwSORT. ` 


Calle time 
не, пеат 
or HNSORT,. ` 


Celle ee 
rout {nes 
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Celis tine 
routines 




















Calle Printe 
#0019 
٥ on epower 
routines HLOOCX totals ashore. 
And RESTART 

























50: асаре BRIN: surf 
loed subroutine oe саса 
and re 


























Celle tfue Calla tine са FUP Celle tine 
Tr ا‎ еден БОТА ы mh LCSORT., 
* ( * ( 
or LNSORT and or L 1. оғ 155081, 





wELOEI (calc. 
no. wal! беске) 






epower 
totals ashore. 


Ends га 
| БҮ Ата 


coeplete 





SO SS SS qe es ee m 








Figure D.1 Flow Chart of the Model. 
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will send the wave in question to the proper sudroutine for 
manipulation. 

۶< ۰۲ہ‎ goling to one of the activity 5s ubroutines, 
the program gueries whether certain flags have been set. If 
they have been set, one of nine routines could re called. 
Five are for heliccpter waves and four are for surface 
waves. They are shown in Figure D.1. The next secticn 
will describe each rcutine fcund in the model in greater 
detail. | 


E.  LESCBIPTION OF RCUTINES 


The following routines are listed in order oi appearance 
in the progran. When two routines appear separated bya 
Slash, the first  rcutine refers to helicopters and the 
second refers to surface. The reason for this format is due 
to the sirilarity іп the logic of the routines. Flow 
diagrams of all the routines are held by the autncr if 


needed. 


1. Routine Name: SETUP 


а. Purpose 


The initial portion of this routine reads values 
meome the T-1.DAT file, interactive input, and input found 
within the code itself. These values are used to dimersion 
Ears used for landing plan data and set up initial condi- 
tions for the simulation. SETUP then opens the landing plan 
file for input of tke values contained in that file. The 
basic language reads each line from the file as a character 
مو 1ة‎ proceeds to strip off individual pieces, converts 
those pieces into numerical values, and then assigns them to 
arrays for later use. This procedure continues until the 
end of the data file is reached at which time the file is 


closed. 


E> 


Another purpose ror this section is : о normalize 
LHOUR, HHOUn, and CHCUR by setting the lowest time toc zero. 
It then adjusts the other tites to reflect their OEE 


differences between the variables. 
E. Type function 


This is a routine that is part >f the nain 


program. It is not a subroutine or-other type of function 
с. Calling rcutines 
None 
d. Called rcutines 
Calls INITIAL 
є. Files created or used 


This routine uses two files for inpıt: Т-1.ГАТ 
and the landing plan file. It also creates a file for 
cutput of the time, number of personnel ashore, and fire- 


power ashore which is used for graphical presentation. 
f. Flow diagram 


Available but not contained in this nanual. 


a. Purpose 


This routine has several functions to perform 
within the model framework. 

It initializes the time sort arrays which are used to‏ ٭ 
track the waves as they progress through the various‏ 
activities.‏ 

e It initializes the deck spots and well desk spots for 


use by the load activity. 


9> ج۲3۴ 0ت‎ times сов landing Craft to launch from the 
Snips. 

It ensures sufficient landing craft for scheduled and 
сп-са11 waves are available in the landing plan file. 
MXungtralizes tbe following arrays: SSH, SCH, SNA, 
КЕШ, SCL, an dwSNA. These arrays store the serial 
number and its ccrresponding wave number for each line 
cf input from the landing pian data file. They are 
used throughout the program to keep track of all the 


serials in a particular wave. 
k. Type function 
This function is a subroutine. 
С байртапа routines 
INITIAL is called by SETUP routine. 
d. Called routines 
TTT TAT GALLS SSORT, HCSORT, І550ЕТ7, LCSORT. 
€. Files created or used 
None 
f. Flow diagram 
Available but not contained in this manual. 
J.  Eoutine Name: Wave tine sort routines 
HSSORT: Scheduled helicopter waves time sort 
НС5СЕТ: Оп-са11 helicopter waves time sort 
BNSCRT: Nonscheduled helicopter time sort 


ISSCRT: Scheduled surface waves time sort 


ICSCRT: On-call surface waves time sort 


135 


INSCRIT: Nonscheduled surface waves time sort 
a. Purpose 


The purpcse of the time sort routine is to find 
the event with the lowest time amongst all waves within a 
particular class (e.g. HSSORT will search through the sched- 
uled helicopter waves ‘looking! for the lowest time for the 
next event). Once trlat wave has been identified, the infor- 
mation pertaining to its wave number, classification, time 
to next event, load factor, mode, etc. will be transferred 
to the MCLOCK array which stores the same info: nation fron 
the five other time scrt routines. The MCLOCK array is tken 
used Ey the MSORT routine . 


b. Type function 
Subroutine 
с. 68 11189" ۲٦0٦3065 


Each activity subroutine calls th» time sort 
routine according to the class of. wave that it is prccessing 
at the time. Fer instance, HRLD (helicopter load routine), 
will call HSSORT, HCSORT, and HNSORT depending an the class 


of wave keing processed. 
d. Called rcutines 
None 
е. Files created or used 
None 
f. Flow diacram 


Available but not contained in this nanual. 
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4. koutine Name: EXEC 


а. Purpose 


EXEC i S Tic Central control routine of the 
model. It controls the flow of all waves by calling the 
proper routine according to the class and mode of the wave 
which has the lowest time for the next event. EXEC first 
checks whether certain flags have been set or not. These 
flags cr signals are concerned with special conditions such 
as lack cf sufficient helicopters, lack of deck spots, etc. 
If the flags have been set, the proper subroutine will be 
called tc make adjustments in the time accordingly. The 
Subroutine MSORT is then called to provide the wave which 
has the lowest time for the next event. EXEC then rcutes 


that wave tc the activity subroutine for processi ng. 
Ty pef unction 
This function is considered the main progranm. 
с. Calling routines 
None 
d. Called rcutines 


БОЕО ЗЕЕ “or can Call ene “following routines: 
END DI HSINSb, SIOCH/STOCL, STSH/STSL, RESTART/EESTART, 
WORT, HRLD/BRLD, PLENCH/ BLENCH, wHUNLD/ZBUNL2, 6 ЕВИНУ; 
HARIV,/EARIV. 


€. Files created or used 
None 
f. Flow diagran 


Available but not contained in this manual. 
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8 ۱066 


This routine is designed to load (o: attempt to 
load) a helicopter (surface) wave from available deck (well) 
spots on the ships. Loading will not occur if (1) there are 
no deck (well) spots or (2) there insufficient carriers of 


the proper type to carry the current wave. 
Ll. Type function 
Subroutine 
с. Calling rcutines 
These routines are called from EXEC. 
4. Called rcutines 


HRLD “631 12 0 ۶۱+ + 7۳ HNSORT, SPOTS and 
25580 +85 550 567 2۰ 7ه +؟ٴ 9 9و ي‎ Е 


св. Files created or used 
None 
T Narrative 


This Subrcutine is called from EXEC when -۹ 
indicates that the current wave scheduled for loading has 
the icwest time amongst all other waves. Tha subroutine 
first checks the class of the wave to be loaded and then the 
deck spot availability. If spots are not available the wave 
must wait for reactivation by RESTART (SESTART) ав сооп ас 
the spots become available. If the Spots are availakle, the 
routine ccmpares the number of carriers and type that are 
needed with the number of that type in the carrier rcols. 
If the number of carriers is insufficient to lift the wave, 


the wave sort array is advanced by 10 minutes to await 


БЕРІП Of sufficient carriers. If either insufficiency case 
cccurs, the appropriate wave time sort routine is called to 
determine the next wave for processing. 

For the case of enough carriers and spots to 
load the current wave, the wave parmeters are set for ready 
to load and launch. SPOTS is called to compute the time 
interval needed to load, DLTIME. Upon return to HRLD (BRID) 
the time interval to load is added to the current tine, 
HOUR, and the results are placed in the appropriate wave 
time sort array. This information is then sent through the 
appropriate wave time sort routine to determine the lowest 


time for the next event. 
42 Flow diagram 

See Figure D.2 . 

6. Foutine Nane: SPOTSZHEIDEK 


а. Purpose 


This pair of routines deternines the helo (well) 
deck spots that are available for use by the wave  Leing 
processed by HRLD (BALD). ТЇ the spots are available a flag 
is set and control is returned to the calling routine 
URLD/ERID). If spots are available, the time necessary to 
Шоаа DLTIME, is computed then control is returned to the 
Sapling routine. DITIME is a global variable and availatle 


throcughcut the prograr. 
LT pe function 
Subroutine 
с. Calling 10ء۶‎ 5 


SPOTS/WELLEK is called by HRLD/BRLD. 
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HRL 


(Helo wave load routine) 










Dela 


Set wave f, code (to launch), load factor In 
wave clock date: HICLK(V,1)-V, HICLKX(V,3)-2, 
HICLK(W. 45eLDT 


Subtract helos from pool Ё 
clock data, for al} I 


Set fleg ӨРШІДІ ne wave can launch: 
LK(W,0)-1 


clear f of helos 
Im wave & 





PC T)=AP(T) 





eck class, 
C. of wave, 
C1 





Get first line, M, of ser lal 
Gata to be carried by wave: м 


= SSH(W,2) 


Are deck 
spots 
é@vallable 

for loading. 

¢ دن0 









no 


сегіз! line 

belong to 

this weve? ¢: 
А(М 2% 






уез 





бо 
sufficient 
helos remain 
Іп Bene 


| Get helo type, Ii: I = SSA(M,3) 
| 


reload! & set code: 
Ні КЕТЕ! LX (V,2)*10 


CLK(W,3)©1 





HICLK(V,I*6)-N 


.(МСАР(Т)), 
et helo pools, 
















m 





Load efther on-call or 
nonscheduled wave, 
Stmifar logic to that 
of scheduled wave, 








Set code to await reload аго 
wave time to HOLD and FSH to 
151 ltne of serial for this 
wave: 
HICLK(W,3)=1, 
HICLK(W,2)*HOLD, 
FSH=SSH(W,2) 







wave class tiee 
sort: CALL HSSORT 


Get most severe load 
factors LOT=SSA(M,4) 






Subtract helos from poo! Ё 


t arriers: 
р?99-р9 15 55А м,4) 
NCAR(1)=NCAR(1)+SSA(M, 4) 
















pronor fete wave 
те sort: CALL 
HSSORT 


Cal! ap 
class t 








Are spots 
avallable 
for next 
weve? 0S:0 






yes 







no 
е °ч, 


CC=C, мем, МЅЕТ-0, МТҮРеТҮР, №Ч5=М5, WLOT=LOT 


Set time to launch and serial 1ine f: 
HICLK(W,2)*HOUR*DLTIME, FSHeM 


Ig 
Са!1 SPOTS to determine time interval, OTIME, If tnis is fast wave of this t pe, set $ als 


that Is necessary for this wave to load and 


find 4, NS. of deck spots that are to be 
| Call appropriate wave class tine sort 


used by this wave and 1f any deck spots 





remain avallab!e for subsequent waves 


жшшшшчыш A A EP RARE RS‏ ی ج چ چ ا 





Figure D.2 Flow Diagram of HRLD/BRLD. 
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d. Called rcutines 
None 
€. Files created or used 
None 
f. Flow diagram 
Available but not contained in this 1 anual. 
7. Routine Name: HLNCH/BINCH 


а. Purpose 


These routines launch a wave from ships and determines the 
time it will arrive at the landing site. It determines the 
number of deck {helc or surface) spots made available to 
subseguent waves and restores those spots. Also it reevalu- 
ates the loading time for а wave being  loadel which had 
emplcyed all of the remaining deck spots. 


t. Type function 

Subroutine 
с. Calling rcutines 

These routines are called from EXEC. 
d. Called routines 


ПЕТЕ Н Calis HSSORT nesOkhT, HNSSET, ) 7 7 
meen Calis LSSORT, ت++1‎ ٥٥٥م‎ LNSORT. 


€. Files created or used 


None 
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f. Narrative 


These routines are called from EXiC when the 
time for launching tne current wave is lowest among all 
cther classes of waves processed by MSORT. The subreutine 
first checks the class of the wave and then gets the first 
line cf serials in that wave to be carried. The number and 
type of carrier is obtained from the wave time sort array. 
A launch signal is placed in the serial lines for this wave 
and the load factor is extracted from the wave time sort 
array.  TLe time interval, DT, from launch to arrival at the 
LZ is computed using the various input data such as launch 
distance, carrier speed, load time, etc. 

Before setting the appropriate wav2 time sort 
array (helos only) tc the arrival time at the LZ, a check is 
made to see if all tbe deck spots are in use by the current 
wave. If so, then the launching of the current wave would 
make availarle a certain number of spots for the next wave. 
If not all the spots are in use, the routine  HIODCK is 
called to reevaluate the helicopter deck spot employment to 
determine how many spots will be available after launch of 
the current wave. 

Finally, the time to load is determined by 
adding DI tc the current time, HOUR, and setting the proper 
code for launch. A call to the appropriate wave time sort 
routine follows these computations. Any deck spots used by 


the currnet wave are then restored upon launch. 
g. Flow diagram 


See Figure D.3 . 
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ні мсн 
(Helo launch routine) 





Get first line, M, of serfal data to be 
carried by wave: M=SSH(W,2) 


Get type (TYP) £ f$ of helos In wave from 
wave clock data: NCAR(TYP)-HICLK(W, TYP*6) 
for non-zero HICLK(W, 1+6) 


Set weve launch sí 1: SSA(M.7)=] (for al! 
wave serial lines). Get load factor, LOT, 
from wave clock data. 






OT, from ship to LZ 
(1n minutes): 
DT*(ALADIS*LZDIS)*60/HSPD(LOT)* HTF(6,LOT) + 
HTF (7, LOT) 










Calculate time Interval, 










оїа this 

wave utilize 
811 

remaining 
k 






&ávaliabie to 
Yoad? C:CC 
and WM:WW 


yes Т 










Set si 
cc & 


81: WSETe] (to cal! RESTART), Clear 
СС«0, ММе0, СС1"0, ММ1»0. бөл deck 
pot avalifbility: 0S<1 
















CALL HLOOCK: where If СС-0 then return: If 

not, Zero CC] and sah yin weve code of wave, 
Wwe? کر‎ ing а 

and 1f wave SUE HICLK(WW,0), 

= ji then set CC] = зї oh. set ЫМ! = WW 

and return 


Figure D.3 
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Launch eíther on-ca!! or 
nonscheduled wave In 


simf lar manner 


return 








Set time and code (3) for errival at LZ: 
HICLK(W,2) -HOUR*DT, HICLK(v,3)-3. Call 
appropriate wave class tine sort 







Get 4 & type (losd type) of deck ро (РАС) 
that were in use by this wave ү! or to 
this launch: PAC+HEST(LD vip 












Restore all Geck 









Compare PAC 
















with 7, spots: for al} 
(NCAR(TYP)), J.K: 
of пе іп OST(J,K) -HEST(J,K) 





Restore only those deck spots that were 

being used by this wave (fe make them 

avalTable now, slong with proportional 
deck spots of 


other load types and его t Does 
Rf f «NCAR CT YP ) /DAC for a! 
HOST(J,X) *HOST( J, K RF (HEST(J, T CHOST (J, к) 







Е Call 
d RESTART 


return 


Flow Diagram of HLNCH/BLNCH. 


= a Se a ج ج‎ me = = эшш» رات‎ Se ыс ЕЕЕ 


а. Purpose 


These routines determine whether ог not landing 
sites are still occupied by previous waves and if sc, delays 
the landing of the current wave until the pertinent zones 
are free to use. Also it calculates the length of time 
necessary for the current wave to unload (constrained by the 


size of the landing 2спе). 
Lt. Туре funceron 
Subroutine 
с. Calling rcutines 
These routines are called from EXEC. 
d. Called rcutines 


HUNLD calls HSSORT, HCSORT P I and BUNLD 
calls LSSORT, ІС5ОКТ, E@scra.- 


€. Files created or used 
None 
[2 Narrative 


These rcutines are called from EXZC when the 
time for landing at the landing site is lowest among all 
cther classes of waves processed by MSORT. The subroutine 
first checks the class of the wave and then gets the first 
line of serial data in that wave to be processed. The 
number and type of carrier is  cbtained from the wave time 
sort array. 

Next, each line of serial data is examined to 
determine its destination. If one of the 183 81719 26167 


reaches is occupied by a prior wave, the wave time sort 
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array is set to await clearance of the landing site. 
control then returns to EXEC. 

If all of the zones are clear, HUNLD/BUNLD 
computes the land and unload time interval, ТИЕТ пла 
time is added to the current time, HOUR, the event code is 
set to "return to ship", and the appropriate wave time sort 
routine is called. Finally, the time for completion of the 
unload is computed and placed in an array which is checked 
Ey subsequent waves to determine occupancy of the landing 


site. 
g. Flow diagran 
See Figure D.4 . 
9. Foutine Name: HRIN/ ERIN 


а. Purpose 


The purpese of these routines is to print a 
running total of tke personnel ashore and th firepower 
ashore. Also HRTN calculates the time that the wave will 
return tc the area of the shipping and hence be +40 
for fcrmaticn of subsequent waves. 


t. Туре function 

Subroutine 
с. Calling reutines 

These routines are called from EXEC. 
d. Called rcutines 


DENN catis HSsORT, HCSORT, HNSORT ani ERIN calls 
SORT, ICSCRT, LNSORIT. 
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HUNI Û 
TS off-load rout íne) 









Handle on-call ё 
nonscheduled waves In 
>٭‎ ۱۱۱۵۳ manner 


heck class, 
C. of wave: 
Ca 








Get first Tine. M, of serial data to be 
carrfed by wave, M=SSH(W,2) 


Cet ё, NCAR(ID, of helos In wave clock 
Gata for all Í: NCARCIJ)-HICLX(V, 146) 









return 









For 811 


DLASAT(I,J, X) -DLABAT(I, 
I.J.K: J,K) = KG (1); 
8 (۹ 


DT IME (K)=DTIME(K) + 
НТЕ 01-2) + HIFC2.J) 2 
HTF (8,J) 


Clear delay table and landing zone table 
for all I,J,%: DLABAT(I,J,K)-0 for al!X; 
ZONE (K)=0 















no Does next Next ۶١ 
ser lal data M = M+} 
Tine belong 






to tnis 
wave: 








wc 
а 
۷۸ 
8 





From sería! line data, get helo type 
(I), load factor (LDT), ang 
destination of serial (DEST): 

TeSSA(M,3)3 LDT=SSA(M,5); 


DEST=SSA(M,6) 







ZTIME = MAX(DTIME(K)) over 811 landing 
zones. K 


Set wave clock to finish unloading and 
prepare to return to ms: 
HICLK(W,2)9HOUR *. ZTI 













Tally й о? helos Into 


zone 
DLABAT(I,LDI.DEST) » 
DLABAT(I,LDT.DEST) » 
SSA(M,4) Set signal: 
ZONE(DEST) - 1 


s Zone free 
of previous 


waves? 
(DEST) :HOUR/ yes 









Set to Oelsy subsequent waves Into 
appropriate LZ until tnts wave finishes 
tanding operation: for all K for which 


ZONE (X)21; ZN(K)=HICLK(W,2) 


Call appropriate wave class time sort 


return 













Set wave ren time to awalt clearing 
the zone: CLK(W,2) ZN(DEST); 
H1CLX(V,3)-3 Call appropr!ate wave cless 
time sort. 







return 


Find type, I, of helos In wave for a)! 
landing zones, K: DTIME(K) - 0 





Figure D. Flow Diagram of HUNLD/BUNLD. 
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є. Files created or used 
None 
f. Narrative 


These routines are called from EXEC when the 
time fcr unload completion is lowest among all other classes 
of waves processed by MSORT. The class of wave is checked 
and the time interval necessary to return to the ship is 
calculated. 

The running totals of personnel ani firepower 
ashore are tallied and sent to either the screen or the 
psuntcr. The code indicating that unloading has been 
completed is set. Finally, the wave time sort array is 
updated with the time interval to arrive back at the ship 
and the appropriate wave class time sort subroutine is 
called. 


g. Flow diagram 
See Figure D.5 . 
10. Routine Name: HARIV/BARIV 


а. Purpose 


These rcutines return the carriers to their 
respective fools for use in forming subsequent waves after 
degrading the number of helicopters to reflect attrition 
losses. It also initiates the loading process for subse- 


guent waves. 
Е. Түре function 


Subroutine 
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HRTN 
(Helo wave clear LZ & return) 


COSA pH س‎ — „= «аланла O рр 










^— Determine time Interval for wave to 
return to ship: OTeHTE(3,} )4+HTE (4,5 )+ 
(LZDIS+ALADIS)*60/HSPD(}) 











Handle on-call and 
nonscheduled waves іп 
simi lar manner 


Get first line, M, of serlal data that 
was carried by маме: М = SSH(W,2) 


Set serfal line sfgnal tnat serfal has 
landed ashore: SSA(K,7) 
Add to tota! personnel ashore over all 
LZ snd beaches: PASH=PASH+SSA(M, 2) 


Add to total! f!repower ashore over 811 
LZ and beaches: SFASH«SFASH*SSA(M,O) 


Advance сегіз! 114пе count: М = Mel 


таа ا‎ 


Does next 
ser fal data yes 
lfne belong стр 
to this - 
wave: _ 


No = 


Print "Personnel Ashore” and "F frepower 
Ashore” 


Set wave signal that this wave's serials 
are ashore: HICLK(W,0)=2 






Set wave clock to time wave will arrive 
back st ships HICLK(W,0)°O0T+HOUR 


Set code (5): HICLK(W,3)95 


Call sppropriate wave class time sort 


return 





Figure D.5 Flow Diagram of HRTN/BRTN. 
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cC Call img rcutines 
These routines are called from EXEC. 
d. Called rcutines 


НАЛЕ ТУ Иа СОЮ, HCSORT,  HNSORL and EARIV 
Ors І550К1, LCSORT, LNSORT. 


с. Files created or used 
None 
f. Narrative 


These rcutines are called from EXEC when the 
time for arrival back to the ship is the lowest among all 
other classes of waves processed by MSORT. The class of the 
wave is checked. If the returning wave is of the scheduled 
class, the numter and type of carriers are placed in a 
carrier pool. КОШЕ С=О рб reduction Of the returning 
Carriers can be made ty an attrition factor. Currently the 
model is set to place all of the returning carriers into the 
pool. However, by changing line 4310 (helo) or line 6660 
(surface) in the program, the attrition can be set to what- 
ever value desired. 

Next, tbe returning wave time sort array is set 
to a high value to prevent that wave from being processed 
again. If the current wave is the last of the class, the 
appropriate wave time sort routine is called ani contrcl is 
returned tc EXEC. Ctherwise, the routine finds the next 


wave to load and sets the proper codes. 
0. Flow diagram 


See Figure D.6 . 
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аар ne ee ee  ————<_—— ee re ee eee epee ee — M'EN 


НАВ ІҮ 
(Helo wave arrive back at ship) 









return 






Handle оп-св11 8 
nonscheduled waves In 
simi lar hanner 


Determine 
class, C, of 
wave: C:1 












Find # and type of helos returning to 


1 : ІН 
ا ا ا‎ Ы : Get tist Ine of seria) data for next 


scheduled wave: M » FSH: V - SSA(M,1) 






Set Ist seria! date 11ге for this wave: 
SSH(W.2)"F SH 

Set tempor ery pools from permanent 

helo pools for 911 ]: Р(])”АР(]) 





ny of type, 
ІН?: 
HiCLK(W, TH+6) 
20 












Is mth 







no sería! data 
Place 4 !n NH: NH-HICLK(M, TH«6) 20 line pert If TUN 
«» this wave's 









„Да 
* e Г] 
° 


1 
6 this wave i 











rt of Е 
ИНН yes 
le CE Get helo type: 1-SSA(M,3) 









Do 
sufficient 
helos ٣ح٣۳‎ 


Allow for josses: NH=.8*NH Reset FSH: | 79 
F SH*F SHOLD 
{ri поо, 
Return wave helos to_appropr late pool: t 
AP( TH) »AP(TH) *NH yes 


Suotract nelos from pool: 
Р(1)“Р(1)-55А(М,4) 










Is this the 
lest type of 
helo? TH:NH 





Is this the 
lest serial 
line? MrTA 







yes = 


Set returning wave Clock time to yes 


infinity: HICLK(W,2)9LATE 







Has last Are on-cal! Set time and code for wave to load: 










e = waves being HICLK(W,2)*HOUR? HICLK(W,3)#1 
ints class called by 
been picked «» time and, If 
n 5256215 * Call appropriate weve tise sort 
OCHCK:2 and 
yes T SSET:1 
بتک‎ B Reset FSH: FSH=M 


‘ 


Call! scheduled wave tine sort 


return 


Se عیسوت‎ i eS eS GEE SE EEE: e ED ER c Ep 





Figure D.6 Flow Diagram of HARIV/BARIT. 
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11. Routine Nane 


ee 
۳ 
trj 
| 
>» 
ا‎ 
= 
(tn 
tzi 
(л 
Єз 
lx 
رجا‎ 
i 


a. Purpose 


This pair cf routines is used to restart timing 
for waves stalled by insufficient helicopter deck  srcts or 
landing craft well deck spots. If there are not enough 
deckywell spots available, this routine adjusts the tire to 
load ky adding a time increment onto the wave sort array. 
Essentially, this action delays the loading un: il a reass- 
essment determines the availibilty of spots for the wave 
which is next to load. 

These routines also serve a second functicn and 
that is to add an increment of time to the wave sort arrays 
when switching from one class to another. This short delay 
is designed as a break in the process to simulate the shift 


from cne class of wave to another. 
го туре function 
Subroutine 
C. Calling rcutines 
This routine is called from EXEC. 
d. Called rcutines 


52٦۸۲۳31151155 0 ط٢‎ ۰۰٦ 656 ۶ 7۰۰٦1115 057 4 0 BESTART 
Ses LESORT, LCSORT, 15. 


€. Files created or used 
None 
f. Flow diagran 


Available but not contained in this nanual. 
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12. Боцііпе Name: STOCH/STCCL 


a. Purpose 


These routines initiate on-call waves to load 
after the final scheduled wave commenced to load. A signal 
1s set by HRLD (ERLD) when the last scheduled helo/surface 
wave has begun the lcading activity. This routine then sets 
up the on-call waves to begin the loading process. If the 
Signal for on-call waves to interrupt the scheduled waves 
has been set, this reutine would return immediately to EXEC 


and not re used. 

t. Type function 

Subroutine 
с. Calling reutines 

These routines are called from EXEC. 
d. Called rcutines 

These routines call 5 ۸ ۷/8 1 ص۰‎ 
€. Files created or used 

None 
f. Flow diagram 

Available but not contained in this nanual. 
a. Purpose 


The purpcse of these two subroutines is to start 
the ncnscheduled helo/surface waves after the final on-call 
wave bas commenced tc load. A signal is set by HRLD (ЕКІ?) 
which tells the EXEC when the last on-call wave has started 


[22 


loading. EXEC then calls this routine to set up the 


nonscheduled waves fcr loading. 
Б. Туре function. 
Subroutine 
С. Calling routines 
These routines are called by EXEC. 
d. Called rcutines 
These routines call RESTART/BESTART. 
е. Files created or used 
None 
f. Flow diagram 
Available but not contained in this nanual. 
14. Foutine Nane: SISHZSISL 


a. Purpose 


The function of these two routines is to restart 
scheduled waves that have been interrupted by on-call waves. 
If the flagis set to have on-call waves break  intc the 
scheduled wave sequence, the scheduled waves are temporarily 
halted ky another routine. Once the designated  cn-call 
waves are complete, the scheduled wave sequence resumes Dy 
mS calling of STSH/SISL. 


۲.۰۰۰۱۶06 function 


Subroutine 
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CupeCa ll inigmnoutameis 
These routines are called from EXEC. 
d. Called routines 
These routines call RESTART/BESTART. 
€. Files created or used 
None 
г. ۰۹ 9 70 
Available but not contained in this nanual. 
a. Purpose 


This routine reevaluates the helicopter deck 
spot employment if the current wave does not occupy all of 
the spots. By doing this the model can determine how many 
additicnal spots are available for the next wave. This wie 
indicate that either the next wave can load or a delay will 
be encountered caused by a lack of deck spots. AS socn as 
enough spots are available a flag will be set to initiate 


loading cf the next wave. 
baso Type function 
Subroutine 
Ce -Calling rcutines 
This routine is called by EXEC. 
d. Called rcutines 


This routine calls WSPOT. 


€. Files created or used 
None 
f. Flow diagran 
Available but not contained in this nanual. 
16. Routine Name: HLODCK 


a. Purpose 


HLODCK is a short routine which sets up addi- 
Kal Signals required to call HCKLD from EXEC. Those 
Signals indicate whether there are any available deck spots 


left after the current wave has loaded. 
Е. Type function 
Subroutine 
с. Calling rcutines 
This routine is called from HLNCH 
d. Called rcutines 
None 
е. Files created or used 
None 
f. Flow diagram 
Available but not contained in this nanual. 
a. Purpose 


This routine calculates the number of helo deck 


spots to be used by the current wave and then how many 
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remain for use by the next wave. This provides information 
required by HCKLD tc determine whether the nett wave can 


load cr has to delay until the current wave launches. 
Е. Type function 
Subroutine 
с. Calling routines 
This routine is called by HCKLD. 
d. Called routines 
None 
€. Files created or used 
None 
f. Flow diagram 
Available but not contained in this nanual. 


18. Routine Name: HALTSH/HALTSL 


ac ٦ٴ‎ 0 6 


These routines will stall the remaining sched- 
uled waves when they are interupted by on-call waves. ТЕ 
the flag is set to interrupt scheduled waves, this, routine 
is called prior to ccmmencement of the on-call waves. Then 
once the on-call waves designated to interrupt have 
completed leading, a flag will be set to call SISH7S Isa 
which restarts the stalled waves. 


ke Type function 


Subroutine 
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с. Calling rcutines 
7132-7 0 0۰۲706 Called [rom EXEC. 
d. Called routines 
None 
€. Files created or used 
None 
f. Flow diagran 


Available but not contained in this nanual. 


F. DATA EASE DESCRIPTION 


1. File name: Landing Flan data file 


a. Purpose 


Input data is broken down into three categories. 
I largest group of data is fcund in the landin] plan file. 
Ап example of this file is found in D.7 . The landing plan 
file contains the wave and serial data which is processed by 
the mcdel. It has type of carriers, number of personnel, 
wave numker, destination, etc. for each serial going ashore. 
Its purpose is to provide the model with the troop unit, 
equipment, and transportation information which will ре 


'moved ashore' by the simulation. 
+4 oor mat 


The landing plan file requires the  ranual 
constructicn of serials and assault waves in a specific 
format. Each line in the data rile contains tielve pieces 
of information which the model requires. These are 
explained as part of an example listed in the  'help' file 


under landing plan file (Section B). This in5 ormaticn is 


i a e a A س ج‎ E O e — — —— 


15: 217,128, 32. 29, 1878. 4A AO Smi R E 


15,348,128, 37. 13. 1870. A AnI E 
1$,778. 128,220.25. 1879.40.49. cae es 
25,317,128. 5. 13. 279. nm л БЕ ы 
25,248,128,72,25,1878.4.08,8,1І.Б-2,415 
SS.378.1278.224 t5. 1878.5. 5B DN Ее 

3S, 517, 290,46, 70, 25505 0 E STATE 
2S, 748, 280, 46,70, 7560,A,8,9,1,R-2, 1220 
5,582,280, 556,70 55 a E ا‎ с в 
4S,1021,50, 948, 5476, 57414,4.8.9.1,R=1. 2460 
nee o 948.93475. paa MCN MT 
48,10z0,50,948, 5475, AAC EO TB 
SS, d Ho ЗА АЗЕ ЕИ 
SS.z259. 112.49 524 9a ama EL ЕТСЕ 
5S5.389.117.270493 S319 ى٦‎ 
58.229.117. 409.954.921 5 Aa 95 ш 
68.559.119.22 24 931 ^ КН E NEN 

5 7.1.Б-2,65 

S 


A. 
ra 112.472..54.241,.,4. 
d Е 


Em COR بے کے‎ 87 


о 





| шы: шшш سس ج‎ a a a ی و ت‎ ee ee aM ee ERR un ec ee i ee ee ee 


Figure D.7 Example of Landing Plan Data File. 


also located on the same disk as the main program and is for 
use in constructing the data file. A copy of the 'help' 
file is located in Appendix E. 


с. Routines 
This file is called by the SETUP rout ine. 
d. Updating 


Each time a new landing plan is used, all the 
parameters pertaining to the number of waves, the number of 
landing craft for scheduled and  on-call waves, the name of 
the landing plan file, etc. must be changed t» conform to 
the new data. If this is not accomplished an error will 
occur identifying tke line in the code where an inconsis- 
tency was found. Mcst of those values are found in the 
interactive mode which helps to prevent those type of 


GILT OES. 


158 


а. Purpose 


This data file contains parameter values which 
are not subject to ccnstant change (see Figure D.8 ). The 
three major tables of this type are the helicopter time 
factors, roat time factors, and operational deck spot 
tables. The first two provide the expected times for 
various evolutions to utilize and the last gives the deck 
spots under various conditions. Tables XXII, XXIII, and 
XXIV list the data which are read from T-1.DAT. The purpose 
of this file is to read data into various arrays within the 


program which will be used to compute event times. 


N‏ جہھ 


BRTYFE TI DAT 
Sa GOMES 222297725 -42757,4,2:7,7:442.7.1515151.14141.1.1 IRIE S 
BO PA 1.1.0.0. 0109010. 0,0 
2 44.4551 71.1.5.,9.,10.4,4502444. 4. 1. 1.1 
КОИ] .9,12, Ja 20 
І. 4 
1 


4 


Figure D.8 Example of Data File T-1.DAT. 


Е. Format 


The first two lines of the T-1.DAT file refer to 
Table XXIV . The data is listed in the file row by row from 
the table. Thus, the first twelve values come £ rom row one 
of the mu The next line contains data from table XXII. 
It is listed in the same manner as Table XXIV except the 
first four values come from the first row of the table. 


Line four lists three helicopter speeds then six landing 
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س سے سو جس سے س سے ee‏ ی سے ی س ےس س ی ر س ج ےا ہے کک ر س س _ 


TABLE XXII 


Helicopter Time Factors in Minutes 












(1) Land in zcne 0 0 0 
(2) Disenbark troops (cargo) | 1 1 Ц 
(3) Takeoff/rendezvous f£rcm LZ Ц 4 4 
(4) Maneuver/land ship 1 1 1 
(5) Refuel/fembark troops (cargo) 5 8 10 
(6) Takecff£/rendezvous from ship 4 4 Ч 
(7) Maneuver/land in LZ 4 4 Ц 

Safety clearance time 1 1 1 

craft speeds. The vehicles for which these speeds are 


Jisted are: CH-53, CH-46, UHIN, LVI, LCM-6, LCH-8, LCU, LST; 
and LARC. The last two lines of the file contain data from 
Table XXIII They are also listed by row. Section C of 
Appendix E contains the format for the T-1.DAT file. 


C. Routines 
This file is called by the SETUP routine. 
d. Updating 


Updating is not necessary unless different time 


factors are desired fcr use. 
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E саллам ee,‏ ی سی وو یی ےووہ چ و کے سی سے ہس 


TABLE XXIII 


Boat Time Factors in Minutes 








Boat type 

Boat wave operation LYT LCM-) LCM-8 LCU LST LARC LCAC 
(1) Land at beach lor LZ) 1 1 1 1 1 1 1 
(2) Disenbark troors/load 5 10 10 10 10 10 15 
(3) Rendezvous for return 1 1 1 1 1 1 0 
(9) Deck time to ship (well deck) 0 10 10 10 10 10 10 
(5) Refuel/eabark troops/load ' 0 5 5 5 5 5 15 
(6) Circle and rendezvous 1 2 2 2 2 2 1 
(7) Land at beach 1 1 1 1 1 1 1 

1 1 1 1 1 1 1 


(8) Safety clearance tine 


a i cee: ES ee Se ee ee ee me ем ---- : шо ш سے ہے سے ہے‎ с шш 


This data source is found within the progran itself as 
either a line of code or aS an interactive query. The data 
is of the type that ray be changed easily for various types 
of analysis. Although this source is not a file, it is the 
final means used to assign values to the remaining vari- 
ables. Once the first two files are prepared, the model is 
loaded into the computer and initiated. The program will 
query the user to input data for the parameters which are 
most likely to change during any type of analysis. An 
alternative is to change the code within the program itself 


where scne cf these values are found. 
а. Format 


Figure D.9 contains an example of the interac- 
tive input while the parameters that are requested аге 


listed in the Table XXV . 
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| 
| 


Helo types: A=CH46E B=CH53D С=СН53Е D=U11N 


| 
| TABLE XXIV | 
Operational Deck Spots | 
Internal External Combii ation | 
Loading Loading Loading | 
Shig type A<: B-C TID АТАР СРБ A BOO 7 | 
LHA (#1) 9 7 4 9 Oe ۶۶۶۶۹۷۹۸ بد:‎ EC | 
| LPR(*2) 7 4 4 7 2472200 4ا7‎ 2 7 | 
ESD (#3) w 4۹ We جب٦‎ 11 1 1 | 
| LPI (#4) ھ ےی‎ 2 17 ЕТТІ ПА! | 
| 545) Туи 200 77 0 0 0 0 0 | 
| 
| 
| 
| 
|... ьа БНН E 

F. Routines 

None 

С Ора аца 
Updating ог ЕБ ۹7٤٣٥ data is relatively 
Simple. The majority of parameters which woull need to be 


changed will be requested by the interactive queries. 
Others can be changed by a direct overwrite in the program. 


listing. 


6. SCURCE LISTING 


See Appendix F. 
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RUN 

t OF SERIAL LINES OF DATA FOR SCHED, ON-CALL, *& NONSCHED HELO THEN SURFACE:49, 25,0,60,0,0 
Setup 17907 

& OF SHIPS BY TYPE (LHÀ,LPH,LSD,LPD,LST) :5,7,1,9,1 

15T TURNAROUND SCHED HELO WAVE: 14 

3 OF BEACHES AND $ OF LANDING ZONES:4.,7 

HELO LAUNCH DISTANCE, BOAT LAUNCH DISTANCE, AND SHORE TO LZ DISTANCE:20,2,5 

LHOUR AND HHQUR:017000,0 

& OF WAVES IN ORDER SCHED, QN-CALL, NONSCHED dELO THEN SURFACE:235,10,0,19,0,0 

$ OF HELOS THAT CAN OCCUPY &N LZ AT ANY ONE TIME BY TYPE (CHà6, CHSZD, CHSZE, UHIN:10,3,8,15 
& OF CARRIERS BY TYPE (CH45,CH52D, CHS2E, UH 1N, VT, LCM5, LC48, LCU,LST,L68C) :155,30, 22,0, 252, 52, 2912, 28, 


3,0,12 
لے ود‎ 
8 OF SURFACE CRAFT THAT CAN OCCUPY A BEACH AT ANY ONE TIME BY TYPE (LVT,LCM5, LCHB, LCU, LST, LARC) : 5, 5, 


0,1 
2,1,4 


INPUT DATA FILE ۸1 
OUTPUT FILE NAME: TESTI 


Figure D.9 Example of Interactive/Line Inpmt Data. 


Н. GLOSSARY OF- VARIAELES 


See Section F of Appendix E. 


I. MODEL TEST RESULTS 


See Charter V of this thesis. 
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TABLE XXV 


Interactive Parameters 


o0 oia ioi АНАР Ё СЫС Шышыш. ш. шшш. ی‎ CRI + مہو‎ aac a ais Cr шш wd 


2D 


Z9 8 


39-44 


М5 
NUS (I) 
TRNH1 
NNB 
NLZ 
А5АГ15 
100215 
LZDIS 
HSWAVE 
HCWAVE 
HNWAVE 
LSWAVE 
LCWAVE 
LNWAVE 
HGF (3) 


AT (1) 


LGF (1) 


Deft 1٦ 


Sched helo serial # 
On-call helo serial # 
Nonsched helo serial # 
Sched surf serial # 
On-call surf serial # 
Nonsched surf serial # 
Ship type (five t ypes) 
1st turnaround wave 
Nunber of beaches 
Number of LZs 

Helo launch distance 
LVT launch distance 
Shore to LZ distance 
Sched wave % 

On-call wave % 
Nonsched wave # 

Sched wave # 

On-call wave # 
Nonsched wave # 


# helos max in L2 
by type (4 types) 
# Carriers by type 
(10 types) 


# boats max at beach 
by type (6 types) 


D D ——— M————————Á DL ee ee ee eee ee eee سس‎ eee 


عجفسا ہےےےں۔ کت2 As ils E‏ ضس ضر ——— rn D‏ قق ےک عسسہ ۔ سے اک رو .کے ہے ا اد چ کک ر es ЫЕ‏ 


Hae Le’ FILE 


EN TABLE OF CONTENTS 

E ЕЛЕЕ ЕЕ Еа MN e. c « » © « 5 « « « « « 166 
шар р арп pile X s e» « e wo sn o o © o > o > o o 167 
ЕРЕКШЕ СВ - 2.2 -үХ 22-і. 02. 2... 168 
РЕ гайетеге ы, к . 272.70 с 4. 2... 169 
ص۰۰‎ ۲ Іле 2: 2-22... 2.2:2........ 172 
РЕСЕ 22222225002 - 22022 727... 176 


Н. КЕЛЕЙ еск Рагапетегсе è e e oce e o o o oe & « « « 180 


E. GENERAL 


The 'help' file was developed to assist a user of the 
model with guestions that will  probabiy arise during огега- 
mon. One can find the information while still on the 
computer without having to rely on a manual. DNA Sting os 


me *help*’ file is found in Figure A.l. 



















19 INFUT "DO YOU DESIRE HELF? (УУ ОБ М)":Л% 

20 IF At="N" THEN GOTO 140 ELSE FRINT " VARIABLE LIST-1: FROGRAM INFUT DATA-2: T 
1 DATA=3" 

TO FRINT"WAVE DATA=4: SUBROUTINE LIST=S;: ExIT=6" 

40 ІМРОТ "ENTER DESIRED INFO #"3X:0N X GOTO 50, 60.70, 80, 90, 140 

OFEN "I" ,1,"C:ALFHA.DAT":GOTO 100‏ ن5 

60 OFEN "I",1,"C:INFUT.DAT":GOTO 100 

70 OFEN "I".1."CrT1. DAT "eGOTO 100 

80 OFEN "I".1."C:LANDATA.DAT":GOTO 100 

90 OFEN "I",1."C: SUBROU. DAT" 

100 FRINT:FRINT"TO SCROLL HIT ^v' WHEN “CONTINUE?” SHOWS. ANY OTHER FEY TO EXIT 
"SPRINT: FRINT 7 

110 FOR I-1 TO 15 :LINE INFUT 81,.L$: IF LEFTt(L$,2) "END" THEN CLOSE H1:GOTO 40 E 
LSE FRINT L$:MEXT 

120 INFUT "CONTINUE?^":27*$: IF Z$-"Y" THEN GOTO 110 ELSE CLOSE #1: СОТО 40 

120 FRINT "BY" 

140 END 

Ok 











eS = жы eee CURIE n UE ENS ашшы s шн 


Figure E.1 Help File Listing. 
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т. 


LANDING PLAN FILE 


tyre lend the 


ІНЕ FOLLOWING IS AN EXAMFLE OF THE I'ATA INFUT FOR ALL WAVE 
INFORMATION, THE FIRST LINE OF LETTERS ANI NUMBERS IS AN ACTUAL LINE QF 
DATA FOUND IN THE LFE.DAT FILE. THE CORRESFONDING LETTERS WILL EXFLAIN 
EACH COLUMN OF DATA, 

Иа 7۶7× 

E ПРИ: UL 
А: THE NUMBER INDICATES THE WAVE ¥ ANI! THE LETTER REFERS TO THE 


CLASS OF THE WAVE (S-SCHEDBULETI; O=ON-CALL: N=NON-SCHED) .MQRE 
THAN ONE LINE OF DATA (CALLED A SERIAL) CAN RE OF THE SAME WAVE 
Ba ыган SERIAL RUNS SEQUENTIALLY FROM 1 TO THE LAST SERIAL 
Т 5, 


' RESERVED FOR FUTURE USE, 

' NUMBER OF FERSONNEL IN PARTICULAR SERIAL OF A FARTICULAR WAVE 
IESF ; 5656 6١۷۶۲" ۲۱۷۶۰ FUTURE USE: 

+ MODE OF ۲ 76, (A=HELO, S=SURFACE) 

' CATEGORIES OF CARRIERS. A THROUGH K CORRESFONTI! Т0 1-11, (1-СН4ФЕ 


2-СНӘЗІ, izCHS53E: 4A-UHIN: S-LUT» ó-LCM-6» 7-LCM-8: 8-LCU, 9-(5Т, 
10-LARC: 112LCAC), CARRIER TYFE MUST BE THE SAME FOR THE SAME 


WAVE, ‹ 

I: NUMRER OF CARRIERS IN THE SERIAL 

J: ТҮРЕ LOAD (I=INTERNALs E=EXTERNAL» C=COMBINATION) 

К, DESTINATION: (R-1 THROUGH Е-4 КЕҒЕК5 Т0 BEACHES #1 THROUGH #4 
AND R-1 THROUGH R-4 REFERS TQ LANDING ZONES #1 THROUGH #4) 

E WEAFONS UNIT VALUE (WUV-FIREFOWER SCORE) 

ENN OF FILE 
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p 


1-1.ГАТ FILE 


THIS HELP FILE COVERS THE INPUT FILE CALLED DATA.T-1. THE 
INFORMATION CONTAINED IN DATA.T-! DEALS WITH PERMANENT VALUES SUCH AS 
THE HELO TIME FACTORS, BOAT TIME FACTORS, ETC. THE DATA INPUT WILL BE 
EXPLAINED IN THE ORDER IT IS CALLED FOR BY THE PROGRAM. 


11111111111111111111111111111111111111111111111111111 


PROGRAM VARIABLE DEFINITION LOCATION IN DATA. T-I 
LINE 1 
59 0 HELO DECK SPOTS LINES 1 & 2 


70 HTF (I,J) HELO TIME FACTORS LINE 3 

90 HSPD (J) HELO SPEEDS LINE 4 (1ST 3 DATA POINTS) 
100 — BSPDI(I) BOAT SPEEDS LINE 4 (DATA POINTS 4-9) 
220 — LTF(T,J) BOAT TIME FACTORS LINES 5 ا ا‎ 


GENERAL INFO: 

“THE DATA IN PROGRAM LINE 40 IS LISTED ROW BY ROW FROM THE HELO 
DECK TABLE FOUND IN APPENDIX B. THE SUBSCRIPTS REFER TO VALUES AS 
FOLLOWS: I=TYPE SHIP, J=TYPE LOAD, K=TYPE HELO. THE FIRST TWELVE VALUES 
IN THE DATA FILE COMES FROM THE FIRST LINE OF VALUES IN THE TABLE. THE 
SECOND TWELVE FROM THE SECOND ROW AND SO ON. 

PROSRAM LINE 70 INPUTS DATA FROM THE HELO TIME FACTORS TABLE 
FOUND IN APPENDIX B. THE SUBSCRIPT I REFERS TO THE TYPE OF OPERATION 
AND J REFERS TO THE TYPE LOAD. THE FIRST ROW OF THE TABLE FORMS THE 
FIRST THREE VALUES IN THE DATA FILE. THE SECOND THREE THE SECOND ROW 
AND SD ON. 

HELO SPEED VALUES ARE FOUND IN LINE 90 OF THE PROGRAM. THE 
SUBSCRIPT REFERS TO THE GENERAL TYPE OF HELO. 1-1 15 А CH-52, J-2 IS 
A CH-45, AND J-3 IS A UHIN. THE SECOND GROUP OF DATA FOUND IN LINE 0 
IS THE BOAT SPEEDS. THE SUBSCRIPT REFERS TO THE TYPE OF BOAT. I-I IS 
AN LVT, 1=2 IS AN LCM-56, I-3 IS AN LCM-8, I-4 IS AN LCU, I=5 IS AN LST, 
AND I=6 IS A LARC. 

PROGRAM LINE 220 INPUTS THE BOAT TIME FACTORS. THE SUBSCRIPT I 
REFERS TO THE TYPE OF BOAT WAVE OPERATION GND J REFERS TO THE TYPE OF 
BOAT. THE DATA FOUND IN THE FILE IS LISTED ROW BY ROW FROM THE TABLE. 
THUS, THE FIRST ROW IN THE TABLE IS THE FIPST FOUR VALUES IN THE DATA 
FILE AND SO ON. 


END OF FILE 
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E. INFUT PARAMETERS 


The following tstle identifies the input Parameters, line number 
ШЕЛІГІ! 3nd 3s OTrief Gescrietion of eech Verieble. these varisbles 
mist De initiated Prior to runnind the model, 


Yericale Line 


Name No, llefiniton 
ALALIS 192 NS CO пат 5те tOo Snore for melos (пт) 
ASALIS 102 Iiistance from shire to shore for (САС (пм) 
DUCIT) 140 MICE TF OCTETS {OSE Oil Particirete in 


landing (I=tyfe carrier)? 


RSFINCT) 190 Host sreed (l=tyre boast: L=LVT, 2=LCM-46, ігіСМ-9, 4- 
LCUr S=LST, S=bARC) 

Са 40 Пага терте о serial dət2 for ell on-call 
melo Waves 

CHCUR 1660 Пепе Tor Stenting first EbAleywsve 

(59 102 ф ПІ 266269 (тат әлоәгеітпе to ICSC EZ (nm) 

Cm 40 Шегі DIEI. ent sepusbhidatsuetor sll on-call 
ا ا‎ 

1 102 (САС sreed 

DLADIS 102 [Iistance ooet must travel from shir to shore (nm) 

НСЦАУЕ 110 Total $ on-call пе То аве 

НСЕ(І) 142 # helos nv tyre that can land and unload 
Simultaneously in LZ (I=helo tyre) 

HHOUR 104 Time for starting first helo wave 

HI Lr Шер lense valie to Frevyent ino ssa ne Considered 
МАКЕ те 5010 (12000) | 

HNWAVE 119 Tota! t nmon-sched hela waves 

HOLT! | Sama a5 HI (=146000) 
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НПӘСІУІ 2 50 Orerational deck srots for helo ops (I=shir tyre,» 
J=ture losding: internalrexternealsr combination? 
K=tyre helo) 

НӘРІСТ) 90 Helo speeds (J=ture load: t=internals 2=ех{егпа1], 
S=comoination) 

HSWAVE 110 Total $ sched helo waves 

НТЕЃІ) 70 Table of helo time factors (сре COE ظ۷‎ ен 

LCWAVE 110 Total # of on-call boat weaves 

BET) 190 t of boats by ture thet cen umlasdg o simultaneouslog я 
numbered aeach or LCAC LZ 

LHQUR 106 Time for stertine first Баат Baveource:- elim ins КЕНЕН 

LAWAVE pro Total * of non-sched Goat waves 

LSWAVE 110 Talal t of sched toast waves 

ШЕСІ? 220 Boat time factors (Ishbost wave oreration» 
J=tyre богі) 

CUTS 102 -Histance -from shoreline to holoe rm) 

MS | 40 Total .¥ of lines of serial 05C3 [OT ON ک2‎ 75 
surf waves 

NA 49 Total F af lines of serial dets ТОТ поПп-<спеп 
helo waves 

NET 80 t рогі tyres (5) 

HELZ 80 t of lcac 125 аугіізбів to Огеш лак 

NCT 80 $ lcac tyres (1) 

NHT 80 ¥ of helo tyures(4) 

HT 80 %аҒ (УТ ізгес (1) 

МІ 7 80 + of lz's available te corrent anae UR 

NNE 82 t of numbered beaches available to current landirns 
Elan 

ШЕТ 30 "t shies total from эптеп сп ог S 
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FOF ESRI ۵۳٥ г 


v tume from wnich off-losdirns occ! 
(J=ture ОТ <һМіғ: I= 


irs 
THA: 2=LFHe т=п, 4=LFIe S=LST) 
Ееее а ON C311 melo= sre tn 
follow semeguies (COCHER = eer аге into спел wave 
seauence (QCHCK=2), If =2 tnern times must be 
specified for each on-call weve to commence 
0 6 


Time for on-call helo wsve to commence oreratior 

if not follovuins secuence (I-uave d$). scheduled 
waves are deleued until on-call oreretions 

comrleted 

Senel ег т [ш ле пег CELL UE L7 sre to 
folion scneduled (CLLK =0 6r Ereek тігіс sched wave 
sequence (0С1СК=2). If =2 tnen times must be 
specified for eech on-call weve to commence 
6۶٤٤8 


“Әрір <реепй (Ізізге сһір! ісзіНА» 2-1ҒН» 2-|6П, д-іРІ» 
ЕЕ 


Ше Л КЕ ге Ыы Кее атта Е гаг сспес nela waves 


The # of the first schedulec helo wave in first 
turnaround wave 


The оғ пле first scheduled surf weve in first 
turnaround wave 


lite тес г серіз геч Каа а Гат сспеп surf waves 


Меіі десу сга аггәач (Ісічгғе еһіР) 
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Е. 


SUBRCUTINES 


This file lists all of the subroutines within the 7٣۳ 
code and their location bs line number, Тһе short 
descrirtion dives a general summary of what the routine 
does, More detailed descirtions af the mayor routines 
are contained in the model documentation, 


Routine Line 
Name Mo. Rescrirtion 


KARIV 6630 Arrive back ship-surf 


RESTART 7930 Restart timing for surf waves stalled for 
insufficient well deck. spots 


RLNCH 3400 Launch-surf 

BRLTI 4990 Loadind-surf 

ЕКТМ 6160 IePosit carso-surf 

ВОМ 5790 Arrive/unload lz-surf 

EXEC 2270 Controls subroutines and timing of model 


HALTSH 7900 Stall remaining sched when on-call told to 
start before completion of sched air 


HALTSL 8280 Stall remaining sched when on-call told 
to Start before completion of sched stint 


HARIV 4270 Arrive back at shir-air 


HCNLT! 8290 Reevaluates deck 5РО% епрісмтегіі if 
current wave does not occurs 811 spots 


HCSORT 2480 Sort. Tautine for or сеа +۶۴ 
HLNCH 3700 Launch routine for air 


НГ ОРЕК 8540 Sets upe recalculation and signals to call 
hckld from exec called from HLNCH 


HNSORT S250 Sort routine for non-sched waves-air 


HAL It 2550 Load subroutine for air 
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НКТМ 
HSSORT 
НОМ 
INITIAL 
LCSORT 
LNSORT 
LSSORT 
MSORT 


RESTART 
SETUF 
SUS 
STOCH 
STOLL 
STSH 
STSL 
SINSH 
SINSL 
WE LIEK 


WSFOT 


4610 
3400 
4049 
479 

4860 
4920 
4800 
3630 


7080 


10 


erosit cargo subroutine-eair 

Sort routine for sched air 

Unload at lz subroutine 

Initializes all arreye and sort routines 
SOrt routine farsom-call surf 

багі routine for non-sched surf 

Sart routine far sched surf 


Master sort routine-comrutes next event 
from all other sort routines 


Restart timing for waves stalled by 
insufficient helo deck srots 


Initial ПЕШО СТ dete from data files 
and witnin Program 


Calculates $ af srots to be used-celled 
bu HRLI! 


Start on-call hele after finsel scheduled 
wave hedan to load 


Set Geen са сиг асе аг ег 71 
scheduled wave began to load 


Restart scheduled waves after stall іп 
SLITS 7٣٤ 


Restart scheduled waves after stall in 
HALTSL (surf) 


Start non-scheduled helo after final 
on-call wave began to load 


Start non-scheduled surface waves after 
final on-call wave bedan to load 


Calculates Ж sPots to be used for surface 
craft (called by BALD) 


Calculates f$ srFots to he used bs air 
(ceailed by HCNLID 
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б. VARIABLE LIST 


The following teole Provides 3 listina сї (ПӘ = ros pone DEUM 
their meanings. It contains 811 the msJor vasriscles sid osteo) ene 
losser узга аз 


ACUDE 


ALANIS 
AF (I) 
0589 
ATCID 


BEGNSH 
BEGOCH 
BEGOCL 
BEGNSI 
BEGSH 
8۲ 
RSFICT) 
С 

Cå 

= 
CEE! 
CHOUR 
ء۳‎ ۶ 


08:0 
+۶ 
METTRE 


Е 


Activity: helo )1۱210 ۶س ںیم ج32 5 ا ح 221370 8ج‎ ۹ ٣ 
сәгчо:3хагтіуе сәсе shir), surface (1-zlauncn Freodustr2= 
arrive beach: $=derosit cargo; 4st ivem Ose ssnlr or сер 
lIvts)rsSsrelosd ffram ше лес, 

Code for next event: isstsrt 1605410 сегел = Еспе ЕЕЕ 
waveri-resch destinsetion(LZ)»4-comelete unloadins and 
start return trifró=arrive Deck mE 

Пізізгісе from shir to snore for helos(nn) 

# of carriers in 26001 Тот Lure Сее ЕБЕ ТЕТ 
[listance from әйіғ Га спогв foreecal can 


Initial F of carriers that will Ferticireste in landings 
(l=tyusee carrier) 


=1 is flags to besin mon-sched helo wave (sutroutine EXEC) 
=1 is flag to bedin om-call nelo wave (subroutine EXEC) 

=1 1s flag to bedin on-call surf wave (subroutine EXEC) 

=1 is fleg to begin nmon-sched surf wave (subroutine EXEC) 
=1 flat to begin sched helo wave (subroutine EXEC) 

-i is flad to vesin scened surf wave (subroutine EAEC) 

Rost sreed (l=tyre boat) | 

Class of usve(lsscned; 2z-z0on-call» 3-2non sched) 

Total # of lines of serial data for ali on-call ñelo waves 
Freserves C 

Class of wave in subroutine HCRLII 

Time for starting first LCAC wave 

Distance from shoreline to LCAC LZ (rm? 

Total # of lines of serial data for all on-call surf waves 
LCAC speed over ground 

Tails # of boats into landing zone 

llestination 

Delas tanle 

Пісбггсе boat must travel from shir to shorelmm) 

Time meeded to lued wave (subroutine HRLE) 


fleck srots svaileale code (9=noy Шеше ٦ 
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ETIME 
ПТМ(Т) 
ПТ 


FSL 

HiCLK(UsN) 
H2CLK (WN) 
H3CLK City N) 


НСШАУЕ 
ШЕЗІТЕШТ: ТҮР) 
ШЕГЕСІ) 


HHOUR 
НІ 


HNWAVE 
HOLE 
HOS(IyJrK) 


ШЕПСІЕПТ ,ТТЕ) 


HOUR 
НӘРІ (ІТ) 
HSWAVE 


Time interval to unlosd LZ 

russes spese pom ТЕСТ! Ј) (boat time factors) 
Time interval for wave to relurn to ship 

Rimming totel of tne btsee load 


aC Т КШ е Ө serisis to Oe cerried in on-call felo 
wave 


О ОЕЕО 55” 1215 to me carried in on-call surf 
wave 


Ка Кү геле КО Serials tô he Carried in non-scnea helo 
wave 


SG NSLS O 5ег1г1< to Dhe carried in non-scnea сш 
wave 


TINI: e usb Scmnrals to He carried in sched helo 
wave 


ТОГЕ tine of Serials to be carried in sched surf 
wave 


Senea Stinarres for helo info (ususve $i» n=wWave info -see 
Soe et sue ЕШ ЗПЕТІ Ва rase) 


On-call subarray for helo info (usuave t: n-usve info -see 
serarate explanation rade) 


NENT SCHON SIDS [Гог helo таго (usugsva frn5uave info 
zumNcarTaUuBEBUPISnatromn rade) 


ШЕГЕ ТЕП се! nelo usves 
leme агач for samne info as ПОСТСЕШТУТТЕ) 


Иле ш GC LCE LSC CSM lang end unlosog simultsneousls in 
او ےر تی‎ ture} 


ШО ЕК Г рог Storting first helo weve 


Very large value to тгеуеп{ info to be considered in time 
ӨСІН; (22000) 
fotal # non-sened helo waves 


бепе ss НІ (-15000) 


Шер опа пас ЕРОС for helo ors (l=snire turer J=tyre 
logiing: internealrexternel,r comuy K=tyre helo) 


ТО Л ШКО ТІ of EC, SEL: (LUT=stere losdins:internal: 
external, combination, TYF=tyre helo)? 


(рген time in minutes 
EO SES СІзгере 103d) 


Tote! # sched helo weaves 
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8 70 
І 
(АТЕ 


LICLK (WN) 


L2CLKCW»N) 


LJCLRCUSN) 


LCWAVE 
LOT 
2 


LHOUR 
LNWAVE 
05 
LSWAVE 
ЕТЕ) 
EZUTS 
M 


MCLOCK(I+N) 


MODE 


MS 

МА 

МЕТ 
NCAR(CI) 
NCLZ 
NCT 

NH 

NHT 
ШЕЗЕТ 


Table of helo time factors (cee Seratste tenale) 
Counter 


Vers large value to erevent info to be considered іп vine 
sort (1200077 


Sched subarras for surf wave info (Wevavets N-wWaeve Тл 
see sefarate explanation) 


Ün-call сирагтач for surf weve INO ICUS E 0 ٣٥ 
data -see serarate exrlanation 


Non-sched subarray for surf weve info (Wawave t$; Msuzve 
data- See Sersfeate ee lanelion 


Total ¥ of om-call bost weves 
Wave losd fector (l=internals 2=-ertermel 61ت 92و‎ ٣ 


# of bosts by tyre thet carn unload simultaneously at 
numbered beach or Сас СХ 


Time for starting first boat uave (excludins LCACs) 
Total # of mom-sched boat waves 

Wave # = SSL(N»2) 

Total t of sched boat uaves 

Boat time factors í(I-hboat usve oreration:» Jz-tsre bost) 
Distance from shoreline to helo LZ (mm) 


lst line of serial data to be carried Oy weve (M=F5H or 
FCH or FMH) 

Master clock sttherrse (і-і із 5» |-sched helon 7-902020 
helu, 3=non-sened nelos 4ssened surfs Sson-ecall surf, á= 
nonmn-sched surfs mawave data-see separate exrlansation) 


АЕ УИГЕ ЕЕ 


Total # of lines of serial data for mon-sched surf waves 
Total ł of lines of seriel data for nmonm-sened helo waves 
t boat tyres (5) 

carriers of tyre I 

of LCAC LZ's availsble to current lending Plaen 

LCAC tyres (1) 

of nelos returning by ture 


of helo tyures( 4) 


ж abt 


Flsd to sidnal безіп попере БЕКЕ СЕГЕ ЕЗИ 
waves completed 
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NLT 
NLZ 
NNR 
NS 
“NSA 
NSS 
NSSET 


NST 
NUS( 1I) 


ОА 
06166 


001(۶ 


ШЕ СК 


0 آ۲‎ 
ШЕИ И 


05 
РАС 


FASH 
PCI) 
RMFRC 
5А 

SCA( I, J) 


БЕН(І,І) 


of LUT tures (1) 
of LZ’s svailaple to current landing Plar 


oO ImERredEBlacches svsllabple to Current landings ٥ 


җа ҹн чы ч 


ӘП deck یع‎ ko 0e used for tnis wave (subroutine HRUE) 
Counter for non-sched helo inrut 
Counter for non-scened surf inrut 


Flag to sidnal Besin non-sched helo waves sfter on-call 
waves comrleted 


# shires total from which can off load 


* Of ships hg ture from which off-loading oceturs ([=tyere 
of ships ісіІһг, 2=lehy S=lsdy 4=leds S=lst) 


counters for on Call Melo serials 


Signal identifying whether on-call helos are to follow 
scheduled (ОСНСК 20) or bresk into scned wave seauence 
(OCHCK=2),.1f =2 then times must be specified for egacn on- 
call wave to commence oreration 


ine tor on-call nelo wave to commence Oreration if not 


followind seauence (I-uave $). Scheduled waves are 
delayed until on-call orerations completed 


ааш шш пеп тг ылга wmecner on Call воссе sre to follow 
EULESS COC TG Breech INL scmed Weve sequence 
ШЕРІ” 17 = thea times Misteme Specified for escn one 
Есте (о ea op I 

51301 


ШЕШЕН 2) ЕСТТТИЕ = tire negt event Flus time to unload 
on beaches 


Counters for on-call surf serials 


I ТЧрә(|іпай) OI пес сс 5 іп Hise DS tne current weve 
erior to launch 


Running total of rersonnel ashore 

oos gt^nelos (1-nelo tsre) 

Drect ions. 8751180111059 Of пес) o srPots 

Counters for sched helo serislized dats 

EUorssve srrsus for s5erislizeg input dats for on-c3sll nelo 
WSVES. (J=following values: O=WUVs f=wave fF, 2=rersonnels 
S=tyre carrier, 4=# of carriers: Ее load: | 
ЕЕЕ ша 60607 ٣ت ج6‎ sidns) ТЕЕ ОК сегізі lire 

of deta) 


Weve ££ of each line of dats for on-call helo wave 
(I-uavet) 


6196ء 7۷05+ 
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502) 


Sob ٦ 
Sd Doo 


SCSI) 


SEASH 
SFASH 
SNACTy J) 


ӘНІН to) 
SNHt 1,2) 


сен ГО) 
SSH(172) 


актуа) 
8 7٦ 


SNS (Ts J) 


55 


SoA; J) 


JSE 
5 17 
м Жш А 


SS 


First line of serialized data for each on-call helo vsve 
(I=wave #) 


Tyre carrier for on-call surf wave (Isusve f) 


First line of serialized data for یح می ےت‎ "۹ 1+ ٤٤٤۶٤٥٣ 
(T=wave #) 


Storage arrays for serislized inreut date for on-call surf 
waves. (J=fFollowind valiesiO=WUV; ji=weve P 2=eerscanel 
S=tsre carrier, 4=# of carrierss S=tyre laosd, 
6=destination,y 7=launch signals I= of serial line 

of dats) 


Total eauirment ashore 
Runnings tetel of firerower share 


Storage arrays for serialized input data for non sched 
helo waves, (J=following valuesiO=WUVs i-uave fs 
2=rpersonnel,s J=turee carrier: 4=# of carriers: S=tyre 1039; 
ó-destinations 7=launch signals I=$ of serial line 

of data) 


Wave fF of each line of dete for nen-sened helo 92/6 
(= озо +) 


First line of serialized date for each non-sched helo wave 
(I-uave f) 


Wave £ of esch line of data for sched nelo vare (l= ى٦‎ 


First line of serialized data for each -ened elo wave 
(I=wave ¥) 


Tre carrier fór non-sened SUNT UG Oa 


First line of serialized data for each mon sched шиг Шаа 
TEVE ES 


Storage arrays for serislized inrut datas for mon-scned 
Suit waves. (J=folloving values 0-40) el —vo veut, 
22۶٤.٣٥2]: g=tyee carriers 4=f Gi certiers: 5= сояе 
AOS) Ones reo 7=launch signals f=% of serial line 
О ste 


Counters for sched surf serislized dete 


Storsse arrays for serialized ІТРПС бара Tor senes 0٥ 
waves. (J=followings valuesiO=WUV, ісмәуе $5 ?-rFersonnels; 
J=tyre carriers $=} of carriers, J=t¥re load: | 
S=destinaetion:s 7=launch signel; f=# of serisl line 

of dsts) 

Flas for calling restart 

Tyre carrier for sched surf маче (I-uave F) 


First line of serialized deta for each sched surf wave 
(Г =шагуме Е) 


Shir sreed 
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SIJ) 


ТА 
ІКМНІ 


TRANS 4 


5 
VLALDIS 
W 

WE 
МП5(1) 
WOST 
WEST 
ULIT 
WNS 
USET 
МТҮР 
WW 

uui 
ZNCI) 
ANE C1) 
AIME 


Storage arrsys for serialized inrut dala for Sched sirf 

waves, (CJ=following values: O=WUV, L=weve 4) 2=rersonnel, 
3=tyre carrier, 4=# of carriers, S=tyre load: ` 

ó-destination: 7-2launch siánal: I=¥ of serisl line 

of data) 


Total # lines of serialized dats for sched nelo waves 


The # of the first scheduled nelo wave in first turnaround 
wave 


Шел ог then irete scheduled csupraweve im first turnaround 
wave 


Total ł lines of serialized data for sched surf waves 
Distance Prom launch to shore of lending craft 
Counter for wave % 

Well deck availabilit« code (0-2no» L=yes) 

Well deck spot array (i=ture shir) 

Well deck srots total in the fleet 

Well deck spots total in the fleet 

Load tyre being emeloyed by current wave 

# deck srots being employed oy current weve 

Srsual to call restart (=1) 

Tyre carrier being employed ty current wave 

Freserve w (wave #) in subroutine HRLI 

Signal used to setur (subroutine HCKLD) 

Time tavle for landing in zone (I) (time unlued complete) 
Landing zone signal (I=LZ tsfe) (i=free to lend іп) 


Че time to unload over all landina zones in use 
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Н. WAVE CLOCK PARAMETERS 


The wave clock parameters are found in six arrays. 
There is an array for each class (3) and for both helo 
and surface modes. They are of the term HILLER. 
The table below is a breakdown of the coding for N. 


N Value Value and code for wave clock parameter 


سج سض س س مد کت س نت کت کد د ت لے ee‏ کد ست مد مد ست کد Әль‏ سک l o l‏ یھ ہو шш»‏ ت س ت مھ = سک س = د ee‏ سض سد س س 


Q Signal: O-wave not loaded yet 
l=wave is or has loaded 
z-—-wave has offloaded cargo ashore 


1 Wave number 


К) 


Time of next event (future time) 


e Code for next event: 
l=start loading wave 
Z=launch loaded wave 
S-reach destination 
4=complete unload and start return ship 
wFarrive back at ship area 


4 Wave load factor (helo only): 
|-internal loading 
2-external loading 
A-combination load 


Mode of transportaion (use by master clock): 
j =hel o 
2=surface 


(Л 


& Class of serial (master clock): 
1=scheduled 
==on-call 
[=non-schedul ed 


STI Number of helos of type I in wave 


END OF FILE 
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_— лын: — ا‎ щш с сс ہے‎ 


PROGRAM LISTING 


“PROGRAM THAT WRITES TO FILE 

'SM RITACCO 

"INITIAL IMFUT ROUTINE LINES 0-470 

ZO DEF FNMX$-MID$(A1$, INSTR(A1$, ", ") *1) 

30 DEF FNYS$SSTES(U)-CHR$(4)-4A15 

40 DEFIMT A-Y: INPFUT"# OF SERIAL LINES OF DATA FOR SCHED, ON-CALL, % NONSCHED HELO 
THEN SURFACE: ".TA,CA,NA,TS,CS.MS 

42 DIM SCA(CA,7) ,SSA(TA. 7) ,SSS(TS, 7) ,SCS(CS,7) .SNA(NA, 7), SNS (MS, 7) .HOS (5.3, 4) 

44 DIM NUS (5) ,HTF(8,7),LTF(8,S) ,HSFD(T) .BSDP (46) , DLABAT(4,7,7) , HOST (3, 4) 

SO PRINT"Setup";FRE (9) :OPFEN"I",1,"T-1.DAT 

60 FOR [=1 TO S:FOR J=1 TO 3:FOR K=1 TO 4: INFUTH1,HOS(I.J,HFE) 

S2 NEXT: NEXT:NEXT: INPUT"# OF SHIPS BY TYPE (LHA,LFH,LSD.LPD,LST):",NUS(1),NUS(2) 
, NUS (I) ,NUS (4) .NUS(S) 

70 FOR I=1 TO ٥3:۰۴0 J=1 TO 3: INFUT#1, HTF (I,J) NEXT: NEXT 

80 NHT=4:NULT=1:NEBT=S: NCT=9:NST=S: TRNS1=10: TRNS2=19: INPUT" 1ST TURNAROUND SCHED НЕ 

LO WAVE: ", TRNH1 

82 INPUT"# OF BEACHES AND # OF LANDING ZONES: ",NNB,NLZ 

90 FOR J21 TO Z: INFUTH1, HSPD(J):NEXT 

100 FOR Is1 TO NLT-NBT-«NCT: INFUT&1,BSFD(IO:NEXTRUN 

101 INFUT"HELO LAUNCH DISTANCE. BOAT LAUNCH DISTANCE, AND SHORE TO LZ DISTANCE:" 
,ALADIS,LODDIS,LZDIS 

102 NEXT: SSPD=20: ASADIS=8: VLADIS=2: DLADIS=8:CLZDIS=1 

104 CSPD=10 

105 INFUT"LHOUR AND HHOUR:", LHOUR, HHOUR 

110 INFUT"# OF WAVES IN ORDER SCHED, ON-CALL, NONSCHED HELO THEN SURFACE: ", HSWAY 

E, HCWAVE, HNHUAVE , LSWAVE, LCWAVE, LNUAVE 

112 CHOUR=17000:LATE=17000:HI=229000: HOLD=16000: VS=1 

114 VC=2:VN=3:DIM SSH (HSWAVE, 2) , SCH (HCWAVE, 2) , SNH (HNWAYVE, 2) . SSL (LSWAVE, 2) 

120 DIM SCL (LCWAVE, 2) .SNL (LNUWAVE, 2) 

120 DIM HICLK (HSUWAVE,NHT+6) ,H2CLK (HCWAVE, NHT+6) , HZCLK (HNUIAVE , NHT +46) 

152 DIM LICLK (LSWAVE, NLT+NET+NCT+4) ,LOCLK (LCWAVE, NL T+NBT+NCT+4) 

154 DIM LICLK (LNWAVE,NLT+NBT+NCT+4) , OCHTAB (HCHAVE) 

149 DIM AT (NHT+NLT+NBT+NCT) ,AP (NHT+NLT+NBT+NCT) ,P (NHT+NLT+NBT+NCT) , HGF (NHT) 

142 DIM LGF (NLT+NBT+NCT) ,WOS (NST): INFUT"# OF HELOS THAT CAN OCCUFY AN LZ AT ANY 

ONE TIME BY TYFE (CH46, CHS3D, CHSZE, UHIND:",.HGF(1),HGF (22 ,HGF (2) , HGF (4) 

144 WDS(1)=6:WDS (2) =2:WDS (5) =T: WDS (4) =5: WDS (5) =7: OCHTAB(1)=18 

150 ОСНСК-О 

180 INFUT"4 OF CARRIERS BY TYPE (CH46,CHSZD.CHSZE,.UHIN,.LVT,.LCM6, LCMB,LCU.LST.L AR 

mee ons 1) .Al (2) Al (s),AT(4),AT(CS) AT (6 , AT (7) AT (8) , AT (7) , AT (10) 

190 INFUT"t OF SURFACE CRAFT THAT CAN OCCUPY A BEACH AT ANY ONE TIME BY TYFE (LY 

ОИЕ ИЕВЕЕМЕ ЕО Е5Т. АКЕ) "БЕ (1). ГБЕ (2), 1 БЕ (5). ЕБЕ (4) „ГБЕ 5)  ,LGF CO) 

220 FOR [=i TO 8:FOR J=1 TO 6: ІМҒОТВІ, LTFCI,J) sNEXT:NEXT:CLOSE 1 

230 FRINT CHRS (12); 

222 ‘IF EOF (2) THEN END 

140 ZZ*$z"SETUP-A" 

250 AS="LFE” 

2522 INFUT"INFUT DATA FILE NAME:", INFILES 

220 ОҒЕМ"І".1.ІМЕІ ЕФ © 

262 INFUT "“OUTFUT FILE NAME:",OUTFILES 

270 SS=1:S5A=1:05=1:0A=1:NSS=1:NSA=1 

SoOeINPUTHI.AtsL ING TNFUTH#1.A1%: IF LEFTS(AS,.1)="E" THEN CLOSE 1:NSA=NSA-1:GOTO 4 

70 

270 IF LEFTS3(AS,1)="T" THEN 220 

2050 FOR Is1 TO 5:7(1) =ЧА (41%) : А1 =МІОФ (01%, ІМБТЕ (А1, ",") +1) : МЕХТ: 2 (0) =2 (0) 

302 I[F LEFTS(A1S$,1)="S" THEN GOSUB Z29 ELSE GOSUR 250 

204 TWUV!'=TWUYV ! +UIUY 

210 GOTO 280 

Т2? IF RIGHTS (AS,1)="O" THEN 740 ELSE IF RIGHTS (AS, 1)="N"THEN 250 

ESOUDALSSMID$(CAIS.SO:FOR Js TO S | 


سر — — 


ESSUOT(5)sU0:?(4)20:59S99(SS.J9)22(J): NEXT: S838(S5.1) VAL (A$) : 9 


:27 AFR 34:DATSHIF. BAS 


ча Cl 
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224 
om 
240 
242 
244 
24% 
ESD 
EE 
254 
226 
260 
23 
m d 
274 
276 
380 
zdz 
заа 
58 
STO 
SE 
294 
576 
400 
410 
420 
М L= 
mE 
4:50 
440 
L=2 
ao 
460 
469 
4270 
480 
4290 
FOR 
SO) 
e 
glo 
I 
co 
240 
9a 


ссе 
ےل ل‎ 


S60) 
280 
290 
کات‎ 
374 
500 
S10 
S20 
So 
940 
550 
550) 
arb 
580 


FOR 1-1 ТО З 5ТЕР 2:Х%-ҒМХ% 

5050В 400:555(55.К)-:К-КЕ%1:МЕХТ:52565 (656,0) =WUV: SS=SS+1:FRETURN 

ALS=MIDS (ALS, 3):FOR J=0 TO S 

Z(5) =0:2(4) =0:SC5 (0S. J) =Z(3) sNEXT: SCS (OS, 1) =VAL (AS) sK=7 

FOR J-1 TO S STEP 2:Х%Ф-ҒМХ% 

GOSUB 400:S8CS8(08,HK) 3L: KK -*1: NEXT: SCS(0S,0) 2WUV: OSZOS-1: RETURN 
A1$-MID$(A1$,2):FO0R Js0 TO S 

Z (5) =0: 264) =0:SNS (NSS, J) =Z(J) SNEXT: SNS (N88, 1) -VAL (A$) : K53 

FOR J=1 TO 8 STEP 2:X$-2FNX$ 

GOSUB 400:SNS(NSS,K) =L:K=K+1:NEXT: SNS (NSS, ©) =WUV: NSS=NSS+1 : RETURN 

IF RIGHT$:A$,1)-"O"THEN 380 ELSE IF RIGHTS(AS,1)="N"THEN 290 
А1%-МІП%(А1%,2):ҒОБ 1-0 TO 5 

Z(S) =0:Z (4) =D: SSA (SA, J) =2 (J) :NEXT: SSA (SA, 1) =VAL (AS) 2K =3 

FOR J-1 TO 8 STEP 2:X$-FNX$ 

GOSUB 400:SSA(SA,K) =L:K=K+1:NEXT:SSA(SA, 0) =WUV: SA=SA+1 +: RETURN 
A1S=MIDS$(A1%,3):FOR 1-0 ТО 5 

Z(S) =0: 2 (4) =0: SCA (OA, J) =2 (J) :NEXT: SCA (OA. 1) SVAL CA$) : K 22 

FOR J-1 TO 8 STEP 2:Х%-ҒЕМХ% 

GOSUB 400: SCA (OA, K) =L:K=k +1: MEXT: SCA (OA, O) =WUV: DOASOA- 1: RETURN 
A1S=MIDS(A1%,3):FOR J=O TO 5 

Z(S)=0: Z (4) =0: SNA (NSA, J) =7Z (J) sNEXT: SNA (NSA, 1) =VAL (AB) :kK=T 

FOR J=1 TO S3 STEF 2:X%=FNXS 

GOSUB 400: SNA (NSA, KJ) =L:K=K+1: NEXT: SNA (NSA, O) =WUV: NSA=NSA+1: RETURN 

IF К-4 THEN L=VAL(A1%) :A1$=FNXS: RETURN 

IF K2-Z2 THEN L-ASC(LEFT$(A1$.,1))-54: A1$FNX$ : RETURN 

IF K«?5 THEN 440 ELSE GOSUB 460:X$-2RIGHT$(A1$,2):IF X$-2"B-1" OR X$-2"R-1" THE 
1 ELSE IF X$="B-2" OR X$="R-2" THEN L=2 ELSE IF X$="B-3" OR X$-2"R-35" THEN L- 
SE L=4 

GOTO 450 

X$-LEFT$(A1$,1):IF X$-2"C"THEN L23 ELSE IF X$-2"I"THEN L-1 ELSE IF X$-"E" THEN 


A1$2FNX$:RETURN 
WUVS=FNXS:A1S=LEFTS (A1S, LEN(ALS) -LEN (WUVS) —1? :WUV-VAL (WUVS$) : RETURN 
"INITIALIZES TIME CLOCKS AND TIME ؛صٰٰ۶۶-:+-:: 8 ۲۶ ی۵۲ م ۳با 0ا_ات)‎ 

OFEN OUTFILES FOR OUTFUT AS яе 

LLHOUR-SLHOUR : HHHOUR=HHOUR 

T¢€1) =LLHOUR: T (2) HHHOUR: T C2) ECCHOUR: FOR І=1 Tg. 3:U(CI) 4-1: NEXT:HFOR J=)) 1G] 
Ісі ТО 3:IF T(I+1)>T(I) THEN ЗМЕР ТОР). ТОБИСОМЕР ШОРА 
NEXT:NEXTSFOR I=! TO 2:ТСТІУ)-Т(Т)-Т (25) “ам Мет бөз к 07 0 7٦ 
ERASE T:ERASE ٣٥۰٣ 

۱۷ )9۳۱۱۱۱۲۰۶ تک 

HHHOUR=T (1) : RETURN 

LLHOUR=T (I) : RETURN 

[30SUB ٥( 

"AT C1) Z 180: AT (202 S 100: AT C32 2100: AT (A4) EO: AT (9) =2N0: AT (6) =81: AT (7) =64: TRNSL=H10O 
" TRHH127:M2MHT-*MLT-NBT*NCT:FOR I21 TO М:АР(12-АТ (1): МЕХТ 
N=NHT+NLT+NBT+NCT:FOR T=1 TO N:APCI)=ATCI) : NEXT 

ҒӘК Із1 ТО S:MELOEFE CI 3 > UATES NEXT 

FOR I1 TO HSWAVE:HICLKCI.Z)SLATE:NEXT:FOR Із! ТП БЕМЕМЕ 

HZCLF (1.2) =LATE:NEXT:FOR I=] TO HNWAVE:HICLE (I, 2) =LATE: NEXT 

FOR I=1 TO LSWAVE:LICLE CT, 2) =LATE:NEXT:FOR I[=1 TO LEWAVE:L2CLE CI, 2) =LATE 
NEXT:FOR ISI TO LNWAVE:LESDIER TIS) SERTIE:NEX 

FOR Е-1 NO NL ZS ZN CEO SUS NEX 

SOSUR 16-0 

J=HHHOUR: 

FOR N=1 TO TAMH1-1 

HICCK(N INEN: HICE (N, 2)=J: HICA (NEE H CEEE aren Chl) ae 
1۰۹۰6 <٦ 

LF ١ ү 

ҒОК Іс! ТО НСИРУЕ 
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eee (1, 1)=12 Hoel’ (1,2) SOCHTABCIOÓ-*HHHOUR: HZCEK CI, 2251: HZCLEECI,2) 21 
© ж” HESRET. SI S2 
700 NEXT:FCH=1:GOSUB 12540: GOTO 7230 
۱۷۷۰۰۰ GOTO 720 
2U Г-МГ ТЕМВТЯҒМСТ: ГІСІ (1,2) =LLHOUR 
720 FOR N=1 TO LSWAVE 
ЕЕГ ОМИ УЕМ: СЕСЕ КОЧ. 55 =2:11СЕК ОЧ, 5) =2:11СЕКОЧ, 5) =1 
750 15-551 №, 2) :ҒОВ 1=1 TO L:NCAR(1I) =0:F ¢CI+NHT) =APCI+NHT):FOR K=1 TO ММВ 
752 ОВАТ(І.К) =0: МЕХТ:МЕХТ й 
760 IF LS=TS5 THEN S20 ELSE IF SSS(LS,1)<°N THEN S2O ELSE 1=555 (15,5) -мнт 
770 IF I= THEN FRINT"NO MO DATA":STOP 
BHESUNIEOPI-NMHT)TSSSS(LS.4) THEN S10 ELSE JsSSS(LS. 12: LICLK CJ , Z0) HOLD 
790 IF SSS3(LS-1,12)«2S8SS(L53,1») THEN 800 ELSE LS=LS~-1:SSS(LS.7)=0:GOTO 799 
= -ExES:ERIMT'LS'";LS:" — Insufficient Scheduled landing craft":STOP 
Pemeeriwer (1) =NCAR(I)+SSS(LS, 4): SSS(LS.7)=1:DEST=SS5S (LS, 5) 
891۱2 DSAT (1. DEST) =DBAT (1.DEST) +SSS(LS, 4) :F (I +NHT) =F (I +NHT) -SSS (LS. 4) :LS=LS+1 
814 GOTO 76460 
S820 FOR I[=1 TO L:APCI+NHT) =P CI+NHT) sLICLK (CN, 1+6) =NCAR(I): IF МСАК(І9<20 THEN II=I 
Sous NEXT 
840 FOR K=1 TO NNB:DTIME(K)=O:FOR I=1 TOL 
ZO IF DBAT(I,K)4£20 THEN 880 
860 DBAT(I.K)-2DBAT(I,HK) -LGF (I) 
20107110 (hr) =D TIME (HK) +LTF (i, 1)+LTFt2, 1) +LTF(S.1):GOTO 250 
880 NEXT: NEXT 
890 ZTIME=0:FOR K=1 TO L: IF DTIME‘K)>ZTIME THEN ZTIME=DTIME (KF) 
900 IF N=LSWUAVE THEN OCTIM=LICLK(N, 2) +ZTIME: GOTO 920 
910 NEXT: IF N=LSWAVE THEN OCTIM=LICLK(MN,2)+ZTIME:GOTO 950 
pommel bh (N+1,2) =L1ICLE(N,2)+ZTIME 
ИШЕ sso (loo, 2).-,0 THEN 540 ELSE LICLK(N+1,2)=HOLD:GOTO 750 
940 NEXT _ 
ESL ONCOTSO THEN PRINT"Boat pool'":6FP'S):sAF t6); AF C7) АРС) АР (9): АР 10) ЕСЕ FRI 
NT “Boat pool":AP(S) sAF(&):AP(7);AFP(8);:AP(9)sAP(10);:AF (11) 
BSTOGDOSUB 1520 
حت‎ ّ ۰۰۲۶ 65-0 THEM FCL-HIs:FML-SHI:GOTO 1225 
760 IF SCS(1.1)20 THEN FCL=HI:FML=HI: GOTO 12264 
979 L=NLT+NBT+NCT:LICLk(1,2)=0CTIM 
9380 FOR N=1 TO LCWAVE 
ЫБ ЕК ы ІЗ-І:ЗІССІК (М, 22-221 СЕК (М, то ІІ ССІК (М, 69-2 
1000 LCO=SCLI(N,2):FOR I=1 TO L:NCARCI) =O: PC1+NHT) =AF (CI+NHT):FOR F=1 TO NNR 
BIOGOUSCDBAT CI,I$) 20: NEXT: NEXT 
ШИРЕКТЕ ІС-го ІНЕМ 1100 ELSE IF SCS(LC,.,12- :N THEM 1100 
1029 I=SCS(LC.7)—-NHT: IF [<=9 THEN LFRINT"NO DATA":GOTO 1225 
1٦0-00 IF PCIANHT) >=SCS(LC,4) THEN 1090 
[Шило ses tle, I)TPESCLK(JI.Z) HOLD 
E SCSCLC-I.1)479CS (LC. 1) THEM 1072 
RS O EE EES: SECS CECE 7) =0: SOTO 1050 
ШИРИЕГЕСІЕЕ-ІРБІМІТ"ІГ"”:ІС;" ІпзеҒҒісіепіе on-call craft" 
ШЕ -GOTO 1220 
1090 NCAR CI) =NCAR(1I)+SCS (LC. 4) :F CI+NHT) =P CI+NHT) -SCS(LC,.4):SCS(LC,7)=1 
19792 DEST=SCS(LC.&):DBAT(I, DEST) =DBAT‘(I,DEST) +SCS(LC, 4) :LE=LC+1:GOTO 1010 
1100 FOR 1=1 TO L: AP CI+NHT) =F (1I+NHT) :LOCLE (M, 1+4) =NCARCI) 
1192 IF NCAR(I) 2°90 THEN II=I 
Pie NEXT 
Peer OR k=l TO NMNB: DITIME (i)=0:FOR I=1 TO L 
1120 IF DBAT(I,K)<=0 THEN 11650 
1140 РВваАт (І. к) =РВАТ (І, К) -_6Е (1) 
БРИРЕТТПЕТР Т ИТТЕ СЕО-ҒГТЕ(І, ІІ) НТЕС, ТУН ТЕ (9.1) :60Тт0 1120 
1150 NEXT:NEXT 
7۳۰101 0-۲۰0 ۴ سے‎ 1۳٦0 LsIF DTIME Ch) ZTIME THEN ZTIMESOTIME (HD 
1199 NEXT 
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MIS 
1120 
| аси) 
[ө |) 
1220 


کو سے тең‏ 1 


1225 
PEO 
1240 
1230 


bese 


1224 


1260 


IF N-LCHAVE THEN NSTIM-LZCLH (N.2)*-ZTIME:GOTO 1220 

L2CLE (N41, 2) S5L2CLKE (N, 2) +ZTIME 

IF SCS(LC.2?::0 THEN 1210 ELSE L7CLE(N-*1,2)-HOLD:GOTO 12290 

NEXT 

IF NCT=0 THEN FRINT 

GOSUB 1580 

IF MS-s0 THEN FML-HI:GOTO 1240 

IF SNS(1,1)20 THEM FML-HI:LZCLE(1, 2) LATE 

FOR I-1 TO NST:WDST-WDST-WDS (I) kNUS (I) : NEXT: WEST SUDST 

PASH=0: SEASH=0): SFASH=0:FOR I=1 TO NST:FOR Je1 TO Z:FOR Ks1 TO MHT 

HOST (J.K) =HOST (J, K) +HOS (1. J,K) &NUS CI) : HEST (J, K) HOST (JI) 
MEXT:MEXT:NEXT:FOR Is1 TO &:IF I£23 THEN MCLOCK(I,E)-21 ELSE MCLOCK(1,5)=2 
IF I-1 OR I24 THEN MCLOCK(I,45)-21 ELSE IF I=2 OR 1=5 THEN MCLOCK(I,4)22 ELSE 


MELOCE (1.6) =5 


1270 
127 
1230 
1289 
1290 
1200 
Pero 
100 
гово 


| йе им 
کے لات ے‎ 


1240 
Sn 
lon 
1250 
1222710 
1280 
1.230 
1400 
1410 
1412 
1429 
1420 
142? 
1440 
1450 
1460 
1470 
1462 
1490 
1492 
і 500) 
ظ2‎ 
lors 
bo) 
Iso 
1540 
l] 35 
1 S860 
1262 
13709 
1575 
L260) 
1590 
1600 
1610 


LD 


NEXT 
DS=1 
RETURN 


TIME=LATE:FOR W=1 TO HSWAVE 

IF HICLE (Wy 27ST IME ТБЫЕЫ 150 

TIMEZHICLK (W, 2): ACODEZHICLK (W, 5) s HWAVE=W 

NEXT 

MCLOCK (1, 2) =TIME: MCLOCK (1,1) =HWAVE: MECLOCK (1, 2) SACDDESEITECK CHBOVESEOIEEIUENMI 
МЕГОСЕСІ; 2-12 ЛЕБОЕКСІ, 67-21 

IF ACODE=& THEN HICLK (HWAVE, 2) LATE 

RETURN 


'"PRINT"HCSORT" 

TIME=LATE: FOR W=1 TO HCWAVE 

IF HOCLK (W.2)>=TIME THEN 1400 

TIME=H2CLE (W, 2) : ACODE=HICLE (W. 2) s HWAVE=W 
NEXT 

MCLOCK (2,2) =TIME: MCLOCK (2, 1) =HWAVE:MCLOCK (2, 5) =ACODE: HECLI’ (HWAVE, 2) =HOLD 
۳٢٢٥٢۴6٣۰۲۰2, 7ھ‎ ٥ 

IF ACODE=4 THEN HICLK (HWAVE, 2) =HOLD 
RETURN 


"۴ٰ۳ 

TIME=LATE: FOR W=1 TO HNWAVE 

IF HSER Wes ЕТПЕ THEN CTSS0 

TIMEZSHZCLE (W,2): AaCODEZHZCL E (MW, 2) : HUAVEZW 

MEXT 

MCLOCH (3.2) =TIME:MCLOCK (>, 1) sHWAVE: MCLOCK (3.5) -ACORE? He Cer E ؤ٣۳‎ 
МЕРОСЕ СЕ ЕЈ = ЕНЕ ®Е SO 

IF ACODE=4 THEN HZCLEtHWAVE.2)-LATE 

RETUFN 


“ЕКІМЕЛЕЗЗБЕТЕ 

TIME=LATE: FOR W=1 TO LSWAVE: I> ТЕШ СОЕ ЕТПЕ HEN ESS 

TIME=LICLE (W.2) :ACODE=LICLE (W,. 2) sLWAVE=wW 

NEXT 

MCLOCK (4,2) =TIME: MCLOCK (4, 1) =LWAVE:MELOCH (4. 3) =SEGDE EI EEE (URINE FE OED 
MCLOCH (4,5) =2:MCLOCK (4,4)=1: IF ACODE=5 THEN LICL. (WAVE, 7) =LATE 

RETURN 


"ERIMIBCSORTS 

TIME=LATE:FOR W=1 TO LOWAVEs IF ESE ОЧ. 20 = ТЇП ТЕЕ ЕМИЕ О 

T IMEZLCZCLE (WW, 2) : 4aCODE-ZLZCLFE £u, 2) : LWAVEUI 

NEXT :MCLOCKE (5.2) =TIME: MCLOCE (5, 1) =LWAVE: MCLGCr: (5. 3) =ACODE: L2CLE. CEUJAVE , 2) SHE 
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vo. Se 
520) 
1528 
17۶ 
Ins nt) 
1240 
1550 
1560 
1570 
1680 
1590 
1799 
ILO 
220 
Pye) 
1740 
ШУ =) 
1760 
1770 
1780 
12790 
18300 
1810 
1820 
1820 
1840 
1850 
1860 
1870 
1880 
1890 
1900 
1919 
1930 
1950 
287 
1940 
DAO 
2250) 
ERO 
2200 
20 
EU EU 


= - 


most) 


2240 
RESO 
BOO 
2570 
2580 
SE 7D 
2400 
2410 
2420 
2470 
2440 
2459 
2460 
2470 
2430 
2490 


ME EIEN CS 5/-22МЕЕОСЕРС 2-2 ШЕ РГСОрЕс6 THEN LICL (LUAVE. 2) =LATE 


RETURN 

“COMFUTES ARFAYS FOR WAVE #°S AND SEFIAL В ОҒ 15Т SERIAL ІМ WAVE 
IF TA=0 THEN 16980 ELSE YVIl=1: SSH(H, 2) =i: SSH(Vl, {? =W: IF TA=N THEN 1680 
FOR І-і TO TA:IF SSACI,1)=W THEN 1579 

IF SSA‘CI,1)=9 THEN 1680 

W=W+l:SSH(W, 2) =I: SSH(W, 1) =W 

NEXT 

IF CA=0 THEN 17-0 ELSE W=1:SCH(W,2)=1:SCH(W.1)=W: IF CA=0 THEN 1720 
FOR Is1 TO CA:IF SCA(I,1)sU THEN 1720 

IF 5CA(I,1)=0 THEN 17-0 

W=b]+1:SCH(W, 2) =1:SCH(W, 1) =W 

NEXT 

IF NA=0 THEN 1780 ELSE W=1:SNH(W,2)=1:SNH(W, 1) =W: IF NA=0 THEN 1780 
FOR I=1 TO NAsIF SNACI,1)=W THEN 1770 

IF SNA(I.1?-20 THEN 1780 

W=W+1:SNH (W, 2) =I:SNH(W, 1) =W 

NEXT 


IF TS= THEN 1970 ELSE W=1:SSL(W.2)=1:SSL(W,1)=SSS(1.7) 
FOR I=1 TO TS:IF SSS(I,1)=W THEN 1820 

IF SSS(I.1)-20 THEN 1820 
WzW-1:SSL((W.2)-2I:SSL(W,1)-28388(I,2) 

NEXT 

IF C820 THEM 1880 ELSE Wz1:SCL (W,2)21: SCL (W, 1) 28CS (1,2) 
FOR 1=1 TO CS:IF SCS(I,1)=W THEN 19870 

IF 5С5 (1.1) =0 THEN 1889 

W=W+1: SCL (W, 2) =1: SCL (W, 1) =SCS (1, 5) 

NEXT 

IF MS=9 THEN 1920 ELSE W=1:SNL(U.2)=1:SNL(W,1)=SNS(1,5) 
FOR I=1 TO MS:IF SNS‘I.1)=W THEN 1920 

IF SNS(I,1)=0 THEN 1970 
W=W+1:SNL(W, 2) =I:SNL(W, 1) =SNS(I,5) 

NEXT 

RETURN 


EXEC SUEROUMINEZCONTROCS TIMING AND EXECUTION GF MODEL 
BELSHEUP-ESPESTHEM- CLOSE-8?7:5TOF ELSE FTIME-z;.-2OO0 
ИЕ ЕЕЕ НАЕ THEN CLOSE fe:STar 
ШЕБІ THEN GOSUB 8590 
77۴۱۲۴6۶۲ ۵(۹ 

ПЕ BEGOEH=1 THEN GOSUB 7730 
DESRBESSHIIGEMEM GOSUR 79860 

7۰ 06۰66 7080 

780۹ 1 2۳2۳۰۰0۹6 اتا" 
IF ASL THEN «8270‏ 

00 ص۶ 0 

IE AS THEN Ec 

Є@ == = Л БЕ 2270 

LP Aves THEM 7410 

6 ۳ ۷ً 0 

ІР А:4 THEN 2420 

9006 ٤ ٥ٍ 

ШЕШ КЕ = THEN ШЕЕ 

50۲" @270 

IF feet THEN 2470 

680 0 2270 

IF Avs THEN 2490 

SISE SARS SONG 2-70 

ПЕ а = HEM 2570 
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2500 GOSUS S5790: GOTO 2270 

2510 ІЕ А.А ТНЕМ 2520 

2-5-2375 0511851 "1 22,7. 

25-0 IF AS THEN STOF 

тсас БО5ОН S650; 6010 2270 

2549” 

5221!) 70 

2550 ЕОК Ісі TO NHT:NCAR (I) =9:F (1) =AF (1) sNEXT:LDT=0 

SO TE 6 THEN Ero 

22380 M=SSH(W, 2) :W=SSA (NM. 1) 

2590 IF DS<>0 THEN 2610 ELSE HI1CLK(W,l2)21:HI1CLK (W, 2) ZHOUR-*- 10: FSH=SSH(W, 2) 
2500 GOSUR 7400: RETURN 

2610 IF SSACM,1)“2W THEM 2680 

2629 [T=SSA(M, 3) 

2630 IF PCI) F=SSA(M, 4) THEN 2550 

2640) HICLK (W, 1) =W:HICLK (W, 2) =HOUR+10: HICLEK (W, 2) =1:GOSUB 2400: RETURN 
2690 PCI) =F CI) -SSA(M, 4) sNCAR (I) =NCAR(I) +SSA(M, 4) 

266) IF SSA(M, S5) :LDT THEN LDT=SSA (N, 5)2 

2670 IF MTA THEN 2S9 ELSE MME 1: 6O ES 

2580 H1CLE(tUW,1)-W:H1CLHK (W,2) 2: H1CLE (OW, A) ZLDT: FOR 1=1 ТО МНТ 

268272 AP (I)=FP CI) sHICLK(W, I1+6) =NCAR (CI) : NEXT 

2690 FOR 1=1 ТО МНТ: ІҒ МСАК 1) < 20 THEN II=I 

2/00 NEXT 

CTI HIDLISOHUTO)SI 

2720 SOSUB 2200 

2770 IF NS) THEN DLTIME-10: HICLK (W, 3) 21: HICLK (u, 0) =0 

2740 IF DSzsO THEN CCzi1:vulzil: YWYSET=0:WTYF=II:WNS=NS:WLDT=LDT 

2790 HiICLK (W,2) =HOUR+DLTIME:FSH=M: IF W=HSWAVE AND OCHCEÉZO THEN OCSETs1:BEGOCH-1 
ELSE IF W=HSWAVE THEN NSSET=1: BEGNSH=1 

2750 GOSUB 2400 

2779 RETURN 

2780 ІЕ С>:2 THEN 5010 

2290 MCSSCHOONM SI SUSE CONMIGO Т) 

2800 IF OCHCK=2 AND SSET=0 THEN GOSUB 7900 

2810 IF 08:20 THEN 2870 ELSE HOCLE (W, 7) =1:HOCLE (W, 2) =HOUR +10: FCH=SCH(W, 2) 
его GOSUS 2430: RETURN 

2370 IF SCAIMC, 1) iW THEN 2700 

2840 І-5СА(МС,2) 

woul IF Fl) =Se€4(Me,4)" THEN 2876 

2860 HZCLEK(W,1)zW: HZCLE: (W, 2) SHOUR-*- 10: HCCLE (CU, 2) 21: GOSUB. ZASO: RETURN 
29870 FPF(I)=F (1) “SCA (MC, 4) :NCAF {1) =NCAR (1) +SCA (MC. 3) 

2330 IF SsGaAtnG, a) BER) THEN LDN=SCEA MES) 

2079 IP MCCA THEN E200 EL SE ۱1 >۰ ۶ 

2700 HOCLE CW, 1) =U: HECLE CW. T) =n HTC (UTD SCDOT: FOR T=: MORNA 

2302 AFL(I)=F(I):HZ2CLF (W, I +6) =NCAR(I):NEXT 

—~710 FOR I=1 TO MHT:IF NCOR(I)4£70 THEM II=I 

mo NEXT 

stat! HEEL ela =. 

2940 IF W-HCHAVE AND OCHCK=2 AND SSET=1 THEN SSET=2: BEGSH=1 

2930 GOSUR 7290 

2950 IF NSz0 THEM DLTIMEz10: H7CLE (WM, Z2) 1: HCCLE (MW, 0) «102 

2770 IF DS= THEN CC=2: YW=W:WSET=0:WTYF=I I :YNS=NS:WLDT=LDT 

2280 HICLE (W. 2) =HOUR+DLTIME:FCH=MC: IF We: HCWAVE THEN 7000 

2990 IF OCHCH=2 AND FSH: >HI THEN SSET=2: BEGSH=1 ELSE NSSET=1: BESNSH=1 
7000 GOS!JE A80: RETURM 

2010 IF FMH' -HI.THEN STOF 

20209 MN=SMH (WU. 2): W=SNACMN. 1) 

7070 IF DS;/;0 THEN ZOSO ELSE HICLE (Ww. Tt) =L1:HoCLK (CW, 2) =HOUR+1°0: FMH=SNH (W, 2) 
2240 GOSUB 7550: КЕТОЕМ 

2.020 IF SNA(MN. 1? ^W THEN 7110 
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3060 I=SNAC(MN,3):IF FCT) =SNACMN,4) THEM 2080 

2070 HZCLF (NW, 1)-:HZCLE (Wd, 2) SHOUR* 10: HZCLE (H, 2) 231: GOSUB. 2550: FETURN 
7030 F(CI)SF(I)-SNA(GN, 4) : MCAR CI? 2NCAR CI) *SNA (HN, 4) 

Z090 IF SMA(MM,S)'LDT THEN LDT-SMA(MNM, S) 

Zi100 IF MN-NA THEN 7110 ELSE MN=MN+1:GOTO 2050 

2110 HZCLE(W,1)-2W: HZCLK (M, 2) 22: HZCLE (V, 4) SLDT 

Z120 FOR I-1 TO NHT:AF(I)sP(ID:HZCLE(W, I-5) SNCAR CI)? : NEXT 

2120 FOR I-1 TO NHT:IF МСАБ(І)<20 THEN II-I 

2140 NEXT 

2150 HZCLK (W,0)21 

3140 GOSUB 5200 

2170 IF NS-20 THEN DLTIME-10:HZCLK(W,Z2)51:HZCLK(W,0)-20 

2180 IF DS-0 THEN CC-Z:Wlil-W:WSET-O: WTYPEII:WNSSNMS:ULDT-LDT 
2189 

S190 HSCLK (W, 2) =HOUR+DLTIME: FMH=MN:GOSUB 3550:RETURN 

J200 IF HOUR” 1500 THEN CLOSE #2:STOP 

2210 J=0:FOR I=1 TO NHT 

5220 IF NCAR(I)=0 THEN 3240 

2220 2-02-1:ТҮР-І 

S240 NEXT 

J250 IF J>1 THEN 3260 

32507 

S270 NS=HOST(LDT, TYP) 

7289 IF NS=0 THEN RETURN 

2290 IF NS:NCAR(TYPR) THEN 3510 

3200 FOR J-1 TO Z:FOR Ks21 TO NHT:HOST(J,K)20:NEXT:NEXT:DS-0:GOTO 2250 
7510 RMFRC!=(NS-NCAR(TYF) ) /HOST(LDT, TYF):FOR 1-1 ТО 3:FOR K=1 TO NHT 
2212 HOST (J.K) =FMFRC ! *HOST (J,K) :sNEXT: NEXT 

7720 рЅ=1 

2220 '"PRINT"RMFRC";RMFRC!,"NS":NS 

S240 ` 

ESSO DLTIME-Q 

2200 IF NCAR(TYP)£20 THEN 2280 

Z3570 DLTIME-DLTIME-HTF(S.LDT) : NCAR(TYF) SNCARCTYF) -N8: GOTO. Zz60 
2280 RETURN 

2290 STOP: RETURN 

2299: i 

7400 TIME=LATE:FOR W=1 TO HSWAVE 

2410 IF HICLE(W,2);-2TIME THEN 2420 

2420 TIME-SHICLK (t, 2) : ACODE-HICLFE (W, 2) : HAVE -U 

2420 МЕХТ 

7440 MCLOCK(1.2)=TIME: IF HWAVE>HSWAVE THEN RETURN ELSE MCLOCH (1.1) =HWAVE:MCLOCK ( 
1, 2) SACODE: HICLE (HUAVE, 2) HOLD: MCLOCE (1,5) 21: MCLOCE (1,6) 51 
3450 IF ACODE=6 THEN HICLKE (HWAVE, 2) =HOLD 

7460 RETURN 

” وہ 

7490 TIME=LATE:FOR W=1 TO HCWAVE 

2490 IF H2CLK(W,2).5TIME THEN 2510 

1500 TIME-HZCLKEK (MW, 2):6CODE-HZCLKE (MW, 2) : HUAVE-M 

2510 NEXT 

S520 MCLOCH(2,2)=TIME: IF HWAVE>HCWAVE THEN RETURN ELSE MCLOCE (2, 1) =HWAVE:MCLOCK ( 
© 5) =ACODE: H2CLKE (HWAVE, 2) HOLD: MCLOCK (2.5) =1:MCLOCK (2,6) =T 
1520 IF ACODE-&5 THEN HZCLK(HWAVE,2)-HOLD 

3540 RETURN 

3549 ° 

S550 ° 

Z560 TIME=LATE: FOR W=1 TO HNWAVE 

2570 IF HZCLK(W,2);2TIME THEN 2590 

7580 TIME=HSCLE (Wl, 2): ACODE=HICLE (Wl, 3) s HWAVE =U 

3590 MEXT 


187 


pcc 


S60) MCLOCK (3,2) =TIME: IF HAVE HMWAVE THEM RETURN ELSE MCLOCH(C,1)-HWAVE: MCLOCI-( 
2,Z2)254CODE:HZCLE CHIAVE, 2) -HOLD: HCLOCE (05) TP REDDE DUE SOS 


EOI 
2620 
ЕБЕ 
aa 
2640 
Еи 
2660 
72670 
2680 
T7690 
MIN" 
2594 
Soyo 
2700 
mu Пр) 
SZAN 
І 
27.50 
2740 
3759 
2760 
2,776! 
2780 
S790 
воо) 
2810 
7820 
ا‎ 
ак 
2840 
2850 
2069 
2870 
7388 
2830 
2300 
2710 
=I 

0 
ZORA 
2240 
3 
7920 
3770 
2980 
22917 
2392 
47000 
4002 
4010 
4020 
$070 
4027 
4074 
4040) 
A042 
4050 
4029 


29 


IF ACODE=6 THEN HICLE (HWAVE, 2) =HOLD 
КЕТСЕМ 


700 7 

TIME=LATE:FOR 1=1 ТО ё 

IF MCLOCKCI,2).-TIME THEM 2670 

ТІМЕ-МСІ ССЕССІІ22 24-1 

NEXT 

IF TIME=LSTE THEN END 

HOUR=TIME: W=MCLOCK (J, 1): A=MCLOCK (J, 3) s C=MCLOCK (J. 5) : МОрЕ=МЕГОВЕ ЈЕУ SERIEN ٣۳۷۰ 
HOUR, "CLASS": C. "WAVE";U, "ACTIVITY":A, "MODE": MODE 

RETURN 


" HLNCH 
IE EE THEN ESN 
М=55Н(Ы. 5) : РОК 1=1 TO NHT:IF HICLE(W, I+64) 770 THEN NCAR (I1) =HICLEK (ЫШ, 1+6) : TYR= 


NEXT 

“PRINT"No carriers":NCAR (TYP): TYP 

IF 55А(М,12<:М4 THEN 2770 

SSA (M,. 7 =1: IF M=TA THEN FSH=HI:GOTO 5770 ELSE M=M+1:GOTO 3750 

LDT=HICLE (U, 4): DT=(LZDIS+ALADIS) #60/HSFD(LDT) +HTF (6, LDT) +HTF(7,LDT) 

IF C=CC AND W=WW THEN WSET=1:CC=9:WW=0: DS=1:CC1=9: WWL=0 

GOSUB 3540 

HICLE (W. >) =HOUR+DT: HICLK (Ww. 3) =3:GOSUB 3400:GOTO 2990 

IF C22 THEN 3910 

MC=SCH(W.2):FOR I=1 TO NHT: IF НІСІК (Ы, Іғ6)<2:0 THEN NCARCI) =H2CLEK(W.1+6): TYP 


МЕТ 2 

ТЕ К СБ ЛО ۰۰642 

SCA (MC. 7) =1:1F MC=CA THEN FCH=HI: GOTO 2850 ELSE MC=MC+1:GOTO 5340 
LDT=HICLE (bl, 49 = DT=(LZDIS+ALADIS) 8607 HSFD(EDT?) HN CO EDD EHEC 70 
IF C=CC AND vVI=WW THEN WSET=1:CC=0: WW=0: DS=1:CCL=O:WW1=0 

GOSUB 3640 

HAZEL (WS 2) =HOUR+DT:HoCLe (CW. 2) = S:GOSUR E480 

SONO ES 

MN=SNH(W.2):FOR I=1 TO NHT: IF HSCLE (hl. IF6) 7:0 THEM NCARCI)-HSCOCE ITS 


a 


NEXT 

IF ЗМА(ММ,12<2М ТНЕМ 2950 

ЭМА(ММ,72-1:ІЕ ММ-МА THEN 7750 ELSE MN=MN+1:GOTO 2920 
LDT=HICLE (UW. 4): DOT=(LZDIS+ALADIS) k60/HSFD(LDT) +HTF (6. LDT) +HTF(7,LDT) 
IF C=CC AND W=bIW THEN WSET=H1:CCHO: WW=Hos DS=1:CC1=02 Wal =o 
GOSUB 94640 

HECER (W 2) =HOUR+DT Нн ЕК гу, 3) =: SOSUE 2550 

FAC=HEST (LDT.TYF) -HOST(LDT, TYP) 

IF NCARC(TYF) FAC THEN 4020 

FOR J=1 TO Z:FOR K=1 TO NHT:HOST (J, kK) =HEST (J,K) : NEXT: NEXT 
IF DS-1 THEM GOSUR 7080 

EETUREN 

RMFRC ' zNCAR'(TYF) /PAC 

ҒӨК 1-1 TO=: EDR - +7۲ 

HOST )3۰ ٦۰٠-۲۱086۰1) 3" ۲۰(۴۴۹۴ 6۰۱۴ )6 17) 0 

IF HOST:J,ID 7HEST(J,.E) THEN HOST (J,F.) =HEST (J. ) 

NEXT:NEXT 

IF DS-1 THEN GOSUB 7080 

RETURN 
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4O46 
4070 
доао 
4020 
4092 
4100 
4110 
4120 
Р 

4120 


"HUNC D 

ae ace noe SSO ESE TE ES IHREN GOCE EO ELSE M=SSH (CW, 2) 

W=SSA(M, 1) 

SOR ТЕ ПИБТЗПЕЕКЕ СІЛ-НТЕРЕІШ Е5):ҒғОоОН J=1 TO S:FOR K=1 TO NLZ 
DEABNICIJ.-0:NEXT:NEXT:MEXT 

moe oe) 7G NEZ: ZONE (Fh) =O: NEXT 

E SSA DS WO THEN 3140 ELSE [=SSA(M. 2) 

ESASI DEST = SSA (M: S): IE DESIS=NLZ THEN 4150 ELSE FRINT"DEST";DEST:STO 


NE EN CEES DE HOLE ТНЕМ БПСЕН СА е “ТМСЦЕЗТ) :НІСІКСЫ, 2)-2: 605УБ 3400: RETURNAT EL 


SE DLABAT(I.LDT, DEST) =DLABAT (I,LDT. DEST) +SSA(M, 4): ZONE (DEST) =1: IF M=TA THEN 4140 
2-6 M-MEISGOTO 4110 


4140 
4150 
4160 
4170 
4180 


БЕН ІНІ ТӨ NET: TE NCAR TIO HEN USI 

NEXT 

FOR K=!1 TO NLZ:DTIME(CE) =0: NEXT 

ЕБ КІ ТЕ МІ.2:ҒОК 4-1 TOE EOE l=) HO NE Т 

IF DLABAT(I,.J.K)<=90 THEN 4190 ELSE DLABAT(I.J.K) =DLABAT(1I,.J,K) -HGF(I):DTIME 


ШЕРГІМЕ (КЕ) ҒНТЕ (1,47) ЯНТҒ (2,4) «НТҒ (8,47) :060Т0 4180 


4190 
4200 
4210 
4220 


4227 


4270 
4240 
47220 
4260 
42069 
4270 
4280 
4290 
4700 
4710 
4720 
47570 
4740 
4250 
4260 
4270 
4580 
4799 
4400 


МЕХТ:МЕХТ:МЕХТ 

ТТІМЕ-О:ҒОН К-1 TO NLZ 

IF DTIME(K)*ZTIME THEN ZTIMEsSDTIME(€K) 

NEXT:HiCLE (W, 2) =HOUR+ZTIME:HICLEK (W,3)=4:FOR K=1 TO الا‎ 
IF ZONE (K)=1 THEN ZN(K)=HICLK (W,2) 

NEXT 

ШЕЕ Ue Merete Helos НІСЕК ТИ 657) 

GOSUB 7400:RETURN 

RETURN 


IF Co1 THEN 4490 

FOR TH=1 TO NHT 

IF HiCLK (CW, TH+6) 20 THEN 4220 

MH=HICLK (W, TH+6): IF W?=TRNH1 THEN 4220 

NH=1' *NH 

AF (TH) =AP (TH) +NH 

6)" -+ AVE 

"ЕЕІМТ"Не1 о Ғоо1ї ":АҒ (1); АР (2) ; АР (2) ; АР (4) 

IF M=TA THEN FSH=HI 

ІЈА_ =0:]Ј=0: ҒОК I=} TO HSWAVE: IF HICLe(I,9)°9O THEN 4280 
J=J+}: IVAL=1: IF ا ےل‎ THEN FSH=SSH(1, 2) 

NEXT: IF IVAL=0 THEN GOSUB 2400:60Т0 4480 

IF OCHCK=2 AND SSET=1 THEM GOSUB 5400: КЕТОКМ 
M=FSH:FSHOLD=FSH: W=SSA(M,1):IF UW-20 OR HICLK (U,0)*0 THEN 4470 ELSE SSH (Vl, 2} = 


FSH:FOR T=1 TO NHT:P (1) =AP (IT) sNEXT 


4410 
442 
4420 
4440 
4420 
4440 
4470 
4430 
4490 

JON 
4510 
4520 
4520 
43549 
4520 
42350 
A27) 


IF 55А(М,12<2М ТНЕМ 4460 

I=SSA(M, 3) 

PP oP ol)? =SSA0M. 4) THEN 4450 ELSE FSH=FSHOLD:GOSUB 5400 
RETURN 

PCI) =F C(I) -SSA(M,4):IF M=TA THEN 4460 ELSE M=M+1:GOTO 4410 
НІС (W, 1) =W: HICLE (W, 2) =HOUR: HICLI’ (W.5)=1:GOSUB 3490: FSH=M: RETURN 
FSH=HI:GOSUB 73400 

RETURN 

IF C322 THEN 4560 

FOR TH-s1 TO NHT 

IF HOCLE (Ww, TH+S) =9 THEN 45730 

AF (TH) =AF CTH) #HOCLE (W, TH+4) 

NEXT:HZCLE (M, 2? SLATE 

IF MC=CA THEN FCH=HI 

GOSUB 3480: RETURN 

DEDI a E HEEE A TEE SD > THEM 35380 

АЕ (ТН) =аР (TH) +HZCLEK (4), TH+5) 
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4530 
4590 
4400 
4509 
4610 
4520 
4820 
4540 
4542 
4544 
46550 
4560 
4554 
4670 
4580 
4590 
4700 
4710 
) 

4712 
4714 
4720 
4730 
42724 
4730 
42750 
47450 
) 

4752 


NEXT: HESCLr. (hl, 3) =LATE 
IF MN=NA THEN FMH=HI 
کا5‎ ۳> 1۰501201۷۶ 206671: 


DT=HTF (3. 1) +HTF (4,1) +(LZ2D1S+ALADIS? ظ)‎ SED GID 

IF Cli THEN 44909 

M=SSH (W, 2) 

SSA(M, 7) =2: DEST=SSA(M, 54) : FSH (DEST) =FSH (DEST) +SSA(M, 2) : PASH=P4SH+SSA (Mm, 2) 
SFFH! (DEST) =SFFH! (DESTI *SS6 (M, O):.SSBASH'SEOASH!*SSAaOUTDO) SERT SSERSEROIPIE 
IF M=TA THEN 4650 ELSE M=M+1: IF SSA(M,1)=W THEN 44640 

FRINT"FASH Totals "sFraGasH:sERINT “times sour 

ERINTUEIBEEWR ASHORE 7 ی٥‎ 

FRINT #2,USING “######,. ##"3 HOUR; FASH3FFE! 

MI ELE CURD =2 

HICLE (W, 2) =DT+HOUR: HICLK (bl. S)=S:GOSUB 2400%БКЕТПЕМ 

IF £2 THEM 4790 

MC=SCH (CW, 2) 

SCA (MC, 7) =i: DEST=SCA CMC, &) sFSH(DEST) =FSH( DEST ) +SEA CME, 2): FASH=FaASHh- See ЕЕ 


SFFH! (DEST) =SFFH! (DEST) +SCA (ME, 9) : SFASH! =SFASH! +SEA(HE, 0) ЕЕН=С =н АШ УН 
IF MC=CA THEN 4720 ELSE MC=MC+1:IF SCA(MC,1)=W THEN 4710 

PRINT "۴ 659۲۱۲٣21666 ۰۰6 +٣٣ 

PRINT“FIREPWR ASHORE 5 ЗЕАЗН ee oes Е 

PRINT #2,USING "######,. ##";HOUR: PASH: PF! 

HZCLKE (W, S) SDT +HOURs HEEL (Ve) =S25ESUR EASES RE UR 

MN=SNH (Wl, 2) 

SNA (MN, 7) =2: DEST=SNA (MN, é4) : FSH (DEST) =PSH (DEST) +SNA (MN, 2) : FASH=PASH+SNA (MN, 2 


SF ASH! =SFASH!+SNA (MN, 0) FF! =SFASH! /TWUV': IF MN=NA THEN 4770 ELSE MN=MN+1: IF 


SNA(MN,1)=W THEN 4749 


4770 
4780 
4734 
4790 
4799 
4300 
4310 
4329 
4820 
S20 

4940) 
4842 
4850 
4860 
4861 
4870 
4880 
4390 
TD 

490r) 
4907 
4910 
4920 
4721 
49.0 
49240 
4290 
271) 

4950 
4982 


FRIRNTN FASH Total:  $FASH:EEINY Eme: ШЕШЕ 
FRINT“FIREPWR ASHORE ~3SPASH РЕ ЕЕ @ КЧ Ку 
FRINT 8Z2,.USING "HsüstüHs.HÓt":HOUR:PASH:FF'! 

HSCLE CW.2)-«DT*HOUR: HSCIER CU, 3) —5: GDSUBESS AD RE Rue 


PRINT 7 

TIME=LATE:FOR W=1 TO LSWAVE: IF LICLK(W,2)->=TIME THEN 4820 

TIME=LICLE (Wi, 2) : ACODE=LICLE (W, 2) : LWIAVE=W 

NEXT: IF MCLOCK (4, 1)=LWAVE AND MCLOCK (4,2) =TIME AND MCLOCK (4,7)=ACODE THEN 4 


MCLOCK (4,2) =TIME:MCLOCK (4,1) =LWAVE:MCLOCh (4,72) =ACODE: LICLE (LWAVE,2) =HOLD 
MCLOGH(4.S) =2:MCLOGH (4. S)=!:1F ACODE=6 THEN LICLY (WAVE, 32) =LATE 
КЕТЕМ 


"EE SUR 

TIMESLATE:FDR Wz1 TO LCWAVE: IF LOCLE (Wa) -=TIME THEN 4990 

TIME-ZLZCLK (W, 2) :G8CODE-LZCLE. (W, 2) es LWAVE=W 

NEXT: IF MCLOCK(S,1)=LWAVE AND MCLOCK(S.2)=TIME AND MELOEH (5.5) =AGCUDE ТЕКИ 


MCLOCK (35.2) =TIME: MCLOCK (5, 1) =LWAVE: MELGCE (SS. 2) =AGRDE: ٥٣٠ 
MCLOCF(5.5)2:MCLOCK (S,5) 22: IF ACODE*O. THEH E SEE (eave sree 2 
RE TURN 


ТЕМ 

TIME=LATE:FOR W=1 TO LNWVAVE: 106 LZELK (CW, 2) -=TIMNE THEN 4950 
TIME=LICLE (W, 2) s ACODE=LICLE (W,. 3) s LWAVE=W 

NEXT: IF MCLOCHE (6, 1) =LWAVE AND MELOEr (6, 2)=TIME AND MECRE: (O = ЕЕЕ НЕ ЧЕ 


MCLOCK (5, 2) =TIME:MCLOCK (5, 1) =LUIGVE?MCLOCr (3, 3) =АЕВВЕ ЕЕЕ ИЕМЕСЕ ТЕ НЕН 
MCLOCH (6, 5)=2:MCLOC? (5. 6) 22: IF 26 08 2-66۲6) 2 
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4270 RETURN 

4930 

4990 L=NLT+NBT+NCT:FOR [=1 TOL 

4992 NCAR(GI)9S0:P(CIM-NHT)SAP(CIHMHT) : NEXT: MCARSO: IF C^1 THEN 5120 

Sor") IF FSL; HI THEN STOF 

S013 LS=SSL (Vl, 2) 

БӘСІ ТЕ Мр<:0 THEN S040 ELSE LICLK (W, 3) =1:LiICLK (W,2)=HOLD 

S030 605028 4800:RETURM 

$SOo40 IF SSS(LS,1).;W THEN SO7O0 ELSE 1=355 (15.7) -мМнТ ` 

SOSO IF FCI+NHT)<SSS(LS, 4) THEN LICLK (W. 1) =W: LICL (ll, 2) =HOUR+10:LICLE (ll, 5) =1: GOSU 

B 4800:RETURN 

5050 PCI+NHT) =F (1+NHT)-SSS (LS. 4) :NCAR(I) =NCAR (1) +5S5 (LS, 4) :MCAR=MCAR+SSS (LS, 4) 
5062 IF LS=TS THEN 5070 ELSE LS=LS+1:GOTO 5940 

ЕЙШО ГІСІГЕС(М, із-М:ГІСІК(Ы,2) -2:ҒОБ Ізі TO L 

2072 AP(OI-NHT) SPCI-NHTO : LICLE (CW, I-6) ZNCARF CI) : NEXT 

=080 GOSUB ZZ20:IF 0> THEN CCC-1:WWW-W: GSET-O 

EDOOUITICLE(GO,0)71 

S100 Li1CLEÉ(GJ,2)-HOUR-*DLTIME:FSL-LS: IF WesLSWAVE AND OCLCKsO THEM LCSET-21: BEGOCL «1 
ELSE IF W-LSWAVE THEN MLSET-1:BEGNSL 7-1 

S119 GOSUB 4300:RETURN 

Si20 IF C>2 THEN 5240 ELSE LC=SCL(W, 2) 

5150 IF WD: THEN S150 ELSE L2CLK(W,23)21:LZCLFK (W, 2) HOLD 

5140 GOSUR 4360: RETURN! 

5150 IF SCS(LC,1)%>W THEN S180 ELSE I=SCS(LC, 7) -NHT 

5150 IF FPCI+NHT) <SCS(LC, 4) THEN LICLK (W, 1) =W:LOCLK (W, 2) =HOUR+10:L2OCLIX (vl, 22 21: GOSU 

B 4860:RETURN 

S170 PCI+NHT) =F (1+NHT) -SCS(LC, 4) :NCAR(I) =NCAR (I) +SCS(LC,. 4) sMCAR=MCAR+SCS (LC, 4) 

S172 IF LC=CS THEN £180 ELSE LC=LC+1:GOTO 5150 

EUBOSISELIACOI, 1)2W:L2CLE(OJ,T)s2:FO0R Is1 TO L 

$182 APCI*NHT) -FCI-NHTO :LZCLK (V, 1+6) =NCAR(I):NEXT:GOSUB SZZ2O:IF WD-O THEN ССС-2: 

WWWw=W: GSET=0 E 

S190 LICLE (ll. 2) SHOUR-DLTIME:FCLSLC:LZ7CLE (JI, 0) 21 

S200 IF W-LCWHAVE AND OCLCK-2 AND LLSET-1 THEM LLSET-7: BEGSL -1 

S210 IF WecLCWAVE THEN S270 

S220 IF OCLCK=2 AND FSL<?HI THEN LLSET=2: BEGSL=1 ELSE NLSET=1: BEGNSL=1 

S2230 GOSUB 4860: RETURM | 

СЕЛ LN=SNL (tl. 2) З 

SS IF WDe^0 THEN S270 ELSE LSCLE(W, 3) =1:LSCLK (W, 2) =HOLD 

S740 GOSUB 4920:RETURN 

2270 IF SMS(LN.1)£;W THEN SZOO ELSE I-2SNS (LN.Z)-MHT 

S280 IF P(I«-MHT)«SNS(LN,4) THEN LZCLK (W, 1) SU: LZCLE (CH, 2) HOUE * 120: LZCLE CJ, 2) 21: GOSU 
85 4920:БЕТМЕМ 

STOO FCI+NHT) =F (I1+NHT) -SNS (LN, 4) :NCAFR (I) =NCAR (I) +SNS (LN, 4) : MCAR=MCAR+SNS (LN. 4) 
S292 IF LN=MS THEN Stoo ELSE LN=LN+1:GOTO 5270 

ЕМІП ЕСГІГ(М.ІЛ-Ш:2ІЛОПСІР(М,23<2:ҒОБК Ісі TOL 

S3023 AP CI+NHT) =F OI +NHT) sLTCLE (W, 1+4) =NCAR (1) :NMEXT: GOSUR SIZAN: IF WD-20 THEM CCC--: 

WWW=W: GSET=O 

2310 LZCLE(OW4,2) -HOUR-DLTIME:FML-LN: LZCLE (V, 0) 21: GOSUB. 4920: RETUEM 

ERI? ٤ 

S220 PRINT"WELDEK":NMSsWDST:DLTIMEsO: IF NS:-2MCAR THEN WDST=9 ELSE WDST=bIDST-MCAR 
S220 FOR Is1 TO HLT-MBT-MCT:IF МСАБ(12520 THEN DTM(ID-LTF(S.I) ELSE DTM(IO-20O 
2540 NEXT:IF WDSTsO ТНЕМ 5270 

$5250 FOR I1 TO NLT-NBT-NCT:IF DTM«(ID?^DLTIME THEN DLTIME-DTM(I?) 

5260 NEXT: RETURN 

S370 WD=0O;NRES=O:FOR I=1 TO NLT+NBT+NCT:NRES=NRES+NCAR (1) 

25.727 IF NRES MNS THEN S7320 ELSE DLTIME=DLTIME+DTM( 1) :NRES=NRES-NS 

EGO NEXT 

S290 RETURN 


57399 
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3400 DT=9:MCQR=0: IF Citi THEM SS29 ELSE LS=SSL‘W,2):FOR 1=1 ТО NLT+NBT+NCT: NCAR (I 
) SLiCLE (M, I-5) :NEXT 

2410 IF SS3/L$,.1)-W4 THEN 556(15,70-1:ІҒ LS=TS THEN 5450 ELSE LS=_S+1:GOTO 5410 
S420 FOR I=1 TO NLT: IF МСАБ(12:%0 THEM D=LODDIS‘69/BSFD(I)+LTF(S,1)+LTF(7.1):MCA 
F=MCAR+NCAR (I) ELSE Deo 

S420 IF D2DT THEN DT=D 

$440 NEXT 

S450 FOR I=NLT+1 TO NLT+NBT+NCT 

S452 IF NCAR (1)4 #0 THEN D=DLADIS*50/BSFD(1I)+LTF 16,1) +LTF(7, 1) sMCAR=MCAR+NCAR (1) 
ELSE D=0 

S460 IF SSL(W.,1) -NHT+NLT+NBT THEN D=ASADIS#5O/BSFD(1)+CLZDIS*46O/CSPD+LTF (6.1) +LT 
EI 

2470 IF D:DT THEN DT=D 

S430 NEXT 

490 IF SSL (W.1)2NHT+NLT+NBT THEN I=NLT+NBT+NCT: DT=ASADIS*60/BSFD(1)+CLZDIS*S60/C 
SPD*-LTF (C6, I) *LTF C7, I) 

5500 IF C=CCC AND W=WWW THEN GSET=1:CCC=0: tiWiW=0:WD=1 

S510 LICLE (W, 2) =HOUR+DT:LICLK (Ww, 25) =5:GOSUB 4800:GOTO 5740 

5520 IF C^2 THEM S640 ELSE LC=SCL(W,2):FOR I=1 TO NLT+NBT+NCT:NCAR(I) =LOCLK (Ww, I+ 
6): NEXT 

S570 IF SCS((LC.1)54 THEN SCS((LC.7?21: IF LCSCS THEN 5570 ELSE LC=LC+1:GOTO 5520 
S540 FOR I=1 TO NLT: IF NCAR(I)“30 THEM DsSLODDIS*50/BSFD(I)*LTF4(6, I) -LTF (7, I2 : MCA 
R=MCAR+NCAR(I) ELSE р=0 

S550 IF DDT THEN DT=D 

S560 NEXT 

5670 FOR I=NLT+*1 TO NLT+NET+NCT: IF NCAR(1I): >0 THEN D=DLAD1IS3X60/BSFD (1) +LTF (6, 1) + 
LTF 7, 1) :MCAR=MCAR+NCAR (I) ELSE р=0 

SS80 IF SCL(W.1)^NHT-NLT-NBT THEN D=ASAD15+60/RSFD (1) +CLZDISX6S0/CSFDILTE CS TT 
ЕСИР) 

S590 IF D^DT THEM DTsD 

S600 NEXT : 

“510 IF SCL(0UWM,1) ;NHT-NLT*NET THEN I=NLT+NBT+NCT: DT=ASADIS#S0/BSPD(I) +CLZDIS#S0/C 
SPD+LTF (6, 1) +LTF (7,1) 

S429 IF C=CCC AND W=WeIW THEN GSET=1:CCC=O: WWww=c: LID= 1 

©5520 LOCLE (i, 2) =HOUR+DT:LZICLE (Wl, 2) =2:GOSUB 4860:GOTO 5760 

5640 LN=SNL(W.2):FOR I=1 TO NLT+NBT+NCT: NCAR (CL) =LSCLE (W.I1+46) : NEXT 

S450 IF SNS(LN,1)=W THEN SNS(LN,7)=1:IF LN=MS THEN 5699 ELSE LN=LN+1:GOTO 5650 
S460) FOR ї=1 ТО МТ і 


So62 IF NCAR(CI)-:50 THEN D=LODDIS*60/BSFDCI)+LTF (6, 1) +EIe(7. 1) "ПЕВК-ПЕРКЕМЕ ЕЕ 
ELSE 0< ہن‎ 

3۰۰۲۴۰۰6-0 )57ت 

SSS МЕ 

26909 FOR P= ی۷۷۷"‎ ٣٠ 

2692 ІР МСАК (І) 5 *0 ТНЕМ D=DLADIS*60/BSFD(1I)+LTF(&. I) +LTF (7, ІЛ МСӘК-МЕРРЕМЕЕРСІИ 
ELSE De j 


S700 IF D`DT THEN DT=D 

S710 NEXT 

$720 IF SNL(.1) NHT+NLT+NBT THEN I=NLT+NBT+NCT: DT=ASADISKSO/BSFD (1) +CLZDIS*S0/C 
SFD+LTF (6,1) +LTF(7, 1) 

$720 IF D:DT THEN DT-D 

S740 IF C=CCC AND W=WWW THEN GSET=1:CCC=0: WWwH=O: WD=1 

6750 LICLE (W, 2) =HOUR+DT:LICLK (W,7)=2:GOSUB 4920 

2750 SFAC-WEST-WDST:IF MCAR-^SFAC THEN WDST=WDST+MCAR ELSE WDST=WEST 

5770 IF WDST^WEST THEM WDST-WEST 

5730 RETURN 


d 

SSD LTT 7۳ 

9900 ZNHSNNB*NCLZ: IF C^*2 THEN 5000 ELSE IF ГТ ТНЕЫ  ОШИБЕБСЕ ЕЗ СЕТ D 
2810 FOR Is1 TO L:MCAORCIOSLICEPF (I, IFO METE LIT TT 

gd-J FUR It TO L:FOR TSI TO ZN: DEAT ЕМЕ УТУМЕ 
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шесі? 
2940 


30پ 2 


E = ONEC ZONE (KI =; NEXT‏ :انناج 
cS. IW THEN S870 "ELSE CISSSS(ILS. S) -NHT‏ 
BEELUMSS300.5. 5): IE LZN(DEST) RO@UR. THEN LICLE (Wy Sy=LZN(DEST):LiICLkK CH, 5) 252: GOS‏ 


UB 4800: RETURN 


2850 
5852 
230 
2880 
SESE 
SSO 
at) 
53910 
2720 
3930 
3940 


(СО 1. DEST) =DEAT (1. DEST) +SSS (LS. 4): LZONE (DEST) =1 
IF LS=TS THEN 5870 ELSE LS=LS+1:GOTO 5840 

GOSUB 5090 

LICLK (W, 2) sHOUR+ZTIME:LICLE (W,2)=4:FOR K=1 TO ZN 
IF LZOME(K)21 THEN LZN(K) SLICLK (Hl, 2) 
NEXT:FRINT"NR OF CRAFT";LICLK (W, LL 5) 

GOSUB 4800:RETURN 

LC=SCL (W, 2) 

nel: NEAR (1) =LICLi(W,I+6):FOR f=1 TO ZN‏ ؛ٍدے: جع 
МНТ‏ رع 5ع EE MET U TEN 5550 ELSE‏ 
DEST-SCS(LC.5):IF LZN(OEST)' HOUR THEN L2CLK (W, 2) SLZN(DESTO : LZCLE CU, 22 32: GOS‏ 


UB 4960: RETURN 


3032 0 
“9542 
a7 Ot) 
5979 
SS 
5980 
2990 
= 
6000 
5010 
6012 
6020 
60.50 


DBAT (1, DEST) =DBAT (1, DEST) +SCS(LC,4):LZONE (DEST) =1 
TES THEN s760 ELSE LC=LC+l: 6010 2920 

GOSUB 470 

ESEPEEON.IZ)-HOURFTZTIME:LZCLK(W,3)-55:FO0mR K-1 TO ZN 
ЕЛЕ ЫЕ CEOS THEM 2м (К) = ЕСЕК СИ, 27 

۷۰۰۰۶٦۰ ۱۱۳۰۰۱۱۱۶۵0۴6۳۰۴ ۱۲۰۰۰۰۱67)‏ ظا 

GOSUB 49860: RETURN 

BRAT Car =O: EZONE (CK) =O: NEXT: NEXT:LiCLk (WO) =1 
LN=SNL (W, 2) i 

ШЕИ TO E2NGAR (I) =LTOCLE(W,1+6):FOQR ESI TO ZN 
DBAT(CI,K)2O:L ZOME (EK) ZO: NEXT: NEXT: LZCCLK CU, 0) =1 

E SNS CEND SN THEN 6050 ELSE I-SNS(QECN, 9 -NHT 
ESS SESIN IE LZIN(DESTI: HOUR THEN CELT OM D) SEZMICDEST) : LZELE (0,222 5: GOS 


UB 4920: RETURN 


5040 
5042 
6050 
50650 
6062 
5070 
5080 
S090 
610% 
٣ 
6120 
ЖЕТЕ 
6120 
6140 
5120 
Se] 
5150 
EDS 
5170 
6130 
) 

So. 
6134 
S 
5200 
71 
Gas 
Gaal) 
5224 


y = a г") 


DEAT (1, DEST) =DEBAT (1, DEST) +SNS (LN, 4):LZONE (DEST) = 1 
IF LN=MS THEN 6050 ELSE LN=LN+1:GOTO 5020 

GOSUB 5090 

LOCLE (W, 2) =HOUR+ZTIME:LICLE (W.3)=4:FOR K=1 TO ZN 
IF LZONEtK)21 THEN LZN(K)-LZCLF (W, Z) 
NEXT:FRINT"NR OF CRAFT"sLZCLK (W,LL-5) 

GOSUBRB 4920: RETURN 

FOR I1 TO L:IF NCAR(IOZX.0 THEM LL 7I 

NEXT:FOR K=1 TO ZN: DTIME (FH) =O: MEXT 

FOR K=1 TO ZN:FOR I=1 TOL 

E DEC CIRO =O THEN 5120 ELCSE DEATUI.EYSBBAT(COI.K)O-LGF CI)? : DT IME(E) ZDTIME (E) 


ТЕГЕ ЕСІР (8, 1):60Т0 6120 


ПЕП: МЕ 
ETIME FROR = ero) fit IF ОТІМЕ СК) ZTIME THEN ZTIME=DT IME CK) 
NEXT:RETURN 


DTzOÓ: ZMNMB-NCLZ:ZIGZO:ZIGNALZO:FOR I=1 TO NLT+NBT+NCT 

ZAMVECI)2OSMEXT: IF C^1 THEN 6220 

LS=SSL (їч, Тт) 

SSS (LS. 7) =2: DEST=SSS (LS. 45): FSH( DEST) =FSH (DEST) +SS535 (LS. 2) : PASH=FASH+S55(LS,2 


SFFH! (DEST) =SFFH! (DEST) +SSS(LS.) : SFASH'! =SFASH! +SSS (LS.0):FF'=SFASH!'/TWUY ! 
IF SSS(LS, 5) <=NHT+NLT THEN ZIGNAL=1 ELSE TAVE (SSS (LS, 2) -NHT?)=1 

IF SSS(LS, 2) >NHT+NLT+NBT THEN 216=1 

IF LS=TS THEN 4270 

ES=ES+*1:1F SSS(LS.1)=t THEN S180 

PRINT FASH Total: ":FGOSH:FRINT "time: ":;HOUR 

EERE NR ASHORE ° SEAS IEE 

PRINT #2,USING "“######. ##''¢ HOUR; FASH:; FF ' 

Ir ZIGMAL=1 THEN 8200 
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өгео ІЕ 716т-1 THEM IsNLT-*MBT*NCT:DTZSCLTPF (2, І) «ГТЕ С9., DP +۶580 ک۶“ ہ]‎ /66 0)“ + ۹٤ 
07۲۳ ec 2٥( 
6-60 FOR ٦-۰0۶۷ 
6262 IF ZAVE CI) =0 THEM S2890 ELSE О=ЕТЕ СЕ ІЛТГТЕСЕ ۶ ٣٥٣ 
,77ک‎ 6 THEN ۵8 
230 NEXT 
6290 LICLECU.2)-HOUR*-DT:ETCUINCU, == ЄЛ 
6209 LICLE (W, 2) =LATE 
6510 LICLE{W, i) =2: GOSUB 4800: RETUFEN 
ӨЗЕП ІР С25 THEN S480 
CESED LESSEE NS) 
6:340 SCS (LC, 7)=2:FASH=FPASH+SCS5S (LC. 2) : SEASH=SEASH+SCS (LC. 3) : SFASH' =SFASH'!' +SC3 (LC. 
Q):FF'zSFASH'/TWUV! 
6242 IF SCS(LC.2)«2NHT-NLT THEN ZIGNAL=1) ELSE ZAVE (SES OEE EDENE 
62509 IF ت۵ )ک5 کک‎ ٠(۰ ۱۱۲۱۷۶۲۷۱۷۷۰۰ ۴۱۶۱۰۰۱11603۸۳20 6-1 
6250 IF LC=CS THEN 580 
6270 LCSLC*1:IF SCS(LE. 1) WW THEN EAD 
65800 FRIMT"PASH Total: ;PASH:ERIMT "tme: BROOR 
62920 PRINT"FIREFWR ASHORE'";SFASH!,PF! 
6594 PRINT 82,USIMG "H"4s44s5t.99'";HOUR;PASH;FF! 
5400 IF ZIGNAL-1 THEM 5460 
6410 IF ZIG=!1 THEM I=NUT+NBT+NCT:DT=LTF (a, I) +L TF C4, 1) +ASADIS*60735SF0( 1 - ٦ 
O7 ESE DIGESTS 0 
6420 FOR I1 TO NULT+NBT+NCT: IF ZAVECTI=0 THEN 6440 ELSE D=LTIF Cs, 1) +E (4, 1) +DLAD 
1 6) 7 I? 
6420 IF D DT THEN DT=D 
5440 NEXT 
6450 LZCLE (W, 2) SHOUR*DT:LZCLEÉ (W,:2) Z9: GOTO 5470 
5460 LOCLE (W,2) =LATE 
S470 07ا ۷ ۴۰ک 265 کا‎ ,۱۱۱( >2 60 1 0 732 
6480 LN=SNL (W, 2?) 
6490 SNS (LN, 7) =a: FASH=FASH+SNS (LN, =) : EASH=EASH+SNS (LN, 3S): SFASH! =SFASH!+SNS CEN VG? 
: FF 'zSFASH!/TVUV! 
6492 IF SNS(LN,3)<=MHT+NLT THEN ZIGNAL=1 ELSE ZAVE (SNS CEN TOD NH TD =1 
5900 IF STS (LN...) MNHT+NLT+NBT THEN ZIG=1 
6210 IF LMsnMS THEN-55-0 
S20 LNZSLM-1:IF SMS(LM,1)zu THEM 6490 
S530 PRINT FASR Total: " .PASH:PRINT times: 78 
5940 FRINT'FIREFWR ASHORE"; SFASH', FF! 
S544 PRINT #2,USING "#####8#. #4":HOUR: FASH: FF! 
550 IF ZIGM6L-21 THEM 6619 
59550 IF ZIGs1 THEN I=NLT+NBT+NCT: DT=LTF (3. I) +LTF (4, 1) -ASADIS*60/ BSFD (1) Seu ۶ 
9/6 0 ۵٥ 
6970 ҒЫР Г-1 ТЫ МЕТЕМЕТЕМСТ 
5972 IF ZAVECI)=0 THEN 5590 ELSE D=LTF(S.1)+LTF (4.1) -OLADIS*#60/BSFD(T) 
Soot IFODSBISTHENIDISD 
$590 NEXT 
6600 LZCLE CH, 2) HOUR*-DT:LZCLK (W, 2255: GOTO S5620 
5610 ۳79۲۷0 - 
6629 LICLEK (W,0)22: GOSUB 4920:RETURN 
Sona 
6620 IF C1 THEN 6810 
6640 FOR TR=1 TO NULT+NBT+NCT: IF CLICLE (W, TB+6)=0 THEM 5680 
6659 MB=LICLE (W, TR+6): IF WO TRNS! THEN 5670 
5060 МЕ=.8*МЕ 
6679 AF CTE+NMHT) =SF (TE+NHT) +NB 
463'3 NEXT:LICLF: (bl, 2) =LATE 
5682 IF MCT=0 THEN FRINT 
6790 IF W=LSWAVE THEN GOSUB 4900: RETURN ELSE GOTO 5720 
$719 IF SSL(W.1) NHT-MLT-MET THEM 6747 ` 
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¬ г) 


ےک 
6770 
5740 
5750 
6750 
6770 
6780 
6790 
6800 
6812 
6820 
5820 
6840 
5850 
5860 
5870 
6830 
6399 
6909 
9910 
6920 
S720‏ 
5940 
,5730 
6950 
6962 
5970 
5780 
5990 
70090 
ver ۷‏ 
7020 
7020 
7040 
7050 
7060 
аго‏ 
72079 
7080 
7990 
7100 
2110 
7120 
10 
7140 
2150 
pec‏ 
7160 
0ئ02 
7180 
7190 
7200 
ЕТІ)‏ 
220 
p D‏ 
7240 
К ж!)‏ 
7260 
2262 


— + 
727000 


W=W+i: IF W°LSWAVE THEN 43800 

КЕЕ ПЕЕВ Н 2) =0 THEM ESL SSE SES GOCE 5710 ELSE 5770 

EOF TA TS ET ERIE ENE NEE CT ENED ZAF CT ENE ٣ 

E SSS ESAD EU THEN 5770 

2-2 0 006 6۰  )۹ 6) 6 0 

RETURN 

IID SEI ENI =555 0Е5 SD SLE RESTS THEN 6790 ELSE LS=LS+1:GOTO 5720 
LEE CW, 1) sWsLiClLkK (W, 2) =HOURSLICLE (W, 3)=1:GOSUB 4300: FSL=L5: RETURN 
FSL=HI:GOSUB 4800: RETURN 

ІР С:2 THEN 6960 

ROR mssi VO NET ENB ENE: TE Leet (W.1TB+S5)=0 THEN 6840 

me (TB+NHT) =AP (TB+NHT) +LoCLK (W, TB*6) 

NEXO REEK BE) =LATE 

Ше ШЕ-ГӘ ТНЕМ ЕСІ--НІ 

IF W=LCWAVE THEN GOSUB 4860: RETURN 

eee eee Woes (EC Е W=O TREN 65-2 ЕГСЕ ТЕ See thl, 1) -NHT+NLT+NBT THEN 638970 
W=W+1:FCL=SCL (W. 2): GOTO 6870 

FOF I1=1 TO NLT+MNMBT+NCT:P(I+NHT)=AF(I+NHT):NEXT 

NE SES CEE IDE EYN THEN 6940 

eos (eee NAT str PC I+NHT) S=SCS(LC. 4) THEN 6920 

RETURN 

۰۱۱٦٠۰ Olen) —SCS (LE, 4): ٣۲۴۰۲ 6 >5" ٦۲۴6۴۲ 67450 ELSE LCO=LE+1:GOTO 8900 
meee WUILE-DEEIW.2)-HOUR:ESEER CH, 2)—-1:G0SUB 34860: FEL=LC: RETURN 
۳ج‎ >6 0 0 RETURN 

FOR TR=1 TO NLT+NET+NCT 

Peewee eS) O THEN APCTBtNHT 7 =OF СТВЕМНТО НЕСІ C4, TB*-5) 

NEST 2 EEC ONT) -LATE 

IF LN=MS THEN FML=HI 

IF W=LNWAVE THEN RETURN ELSE LN=FML:W=SNS (LN, 1) 

NEED ODIBHENOIZUZO ELSE IF SNL(G/.T) NHT*NLT*NETITHEM 7020 
WzW*-1:FMLZSNL (WM, 22 : GOTO 79000 

БРЕТТ ШЕТЕМЕТЕМСТІРСІЕМИНТО-ӘРКСІЗМЕНТ? NEXT 

IF SMS(LM.1)7^u THEM 79060 

pss aXMHLI:SIF FPOITtNHTO-SMS(GEH.3)THEN RETUEN 

eee SNBHT)-SNS(CN.,39):IF LNEeMS THEN 75260 ELSE LMsLN*1:GOTO 70-70 
ПЕЕ ЕЕ ИКИ ЕНЕ ЕБИ 0 =НОЦКЗЕЗСЕБ СНЕ 5) =1:60508 459205: ЕМ_=1 М: RETURN 
PML=HI:GOSUB 4920: RETURN 


WSET=H9: J=1 

CVAL=O0:FOR I=1 TO HSWAVE: IF HICLE(I,2)°>=1 THEN 7120 
H1ICLE CI, 3) =1:HICLE (1,2) =HOUR+I: 1F J=1 THEN F=I 
J=J+5:CVAL=1 

NEXT: IF KC HSWAVE OR CVAL=0 THEN 7170 

ТЕ БЕРЕН sees) =i OR MCLOCE (1.2)=6 THEN 7160 

ПЕТЕР @MCLOCK (1.2) THEN 7170 
HWAVE=MCLOCK (1.1) :HICLE (HMUAVE, 2) =MCLOCE (1.2) 
“FRINT"Sched Wave" :HNAVE:" Time” :H1ICLE (HWAVE,2)3:" Code":sHICLE CHuAVE, 7) 
GOSUR 2400 

WSET=0: IF ЕСН-НІ ТНЕМ 7280 

IF CVAL=1 AND OCHCK=0 THEM RETURN 

IF OCHCK=2 AND SSET=9 THEN 7230 

CVAL=0:FOR I=1 TO HCWAVE: IF HICLE (1,3) 41 THEN 7250 
HOCLK(I.3)21:HICLE (1.2) =HOUR+J: IF J=1 THEM K=!I 
J=J+5:CVAL=1 

NEXT: IF Fe HCWAVE OR CVAL=0 THEN 7299 

ШЕШ ЕШ CE DEIN THEN 7279 

+7 8 80551۰۰۹2 ۷۲۰۰۵۸۸۳۰۰۱117۱۳ 93۲۰ 2ا ا وط 

HWAVYE=MELOCK (2, 1):HOCLE (HWAVE, 2) =MCLOCE (2,2) 
"FRINT"On-Call Wave":HUAVE:" Time" sHICLKE (HWAVE,.2):" Code":HCZCLFE (HWAVE, 2) 
GOSUR 7480 
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7290 WSET=9: IF FMH-HI OR HNWAVE=0 THEN RETURN 

7290 CVGAL=0O:FOR I=1 TO HNMWAVE: IF HZCLK'/I.Z):1 THEN 7220 

7500 HZCLE(CI.Z)9SI:HZCEECI.2)SHOURSEJSIE Jed THEN K=I 

77210 (22+7٦ 

7320 NEXT: IF KO HNWAVE OR CVAL=0 THEN RETURN 

ШӨ IF MCLOCE(E.$)51 THEM 7240 

7240 IF HZCLK(K,2)?2MCLOCK(Z,2) THEN RETURN 

72520 HWAVEZMCLOCK (2.1): HZCLK (HWAVE, 2) MCLOCK CZ, 2) 

7360 GOSUB 3550:RETURN 

2709 MC=SCH(W, 2) 

7380 W=SCA(MC, 1) 

7290 FOR I=t TO NHT:NCAR(I) =HZCLK(W.I+6):FOR J=1 TO 3:FOR K=1 TO NLZ 

7:292 DLABAT(I,J,K)50: NEXT: MEXT: NEXT 

7400 FOR k-1 TO NLZ: ZOME (K) Os NEXT 

7410 IF SCA(MC,12)4£2W THEM 74Z2O ELSE І-5СА(МС,2) 

7420 LDTsSCA(MC,S):DEST2SCA(MC, 6): IF ZN(DEST) ! HOUR. THEM HZ2CLE (N,2) ZH (DEST) : H2CL 
K(W,2)22:GDSUB ZABO:RETURN ELSE DLABAT(I,LDT,DEST) =DLABAT(I,LDT, DEST) +SCA(MC, 4): 
ZONE (DEST)=t:IF MC=CA THEN 7420 ELSE MC=MC+1:GOTO 7410 

7420 FOR I=t TO NHT: IF NCAR(I) <0 THEN L=I 

7440 NEXT 

7450 FOR K=1 TO MLZ: DTIME(K) =O:NEXT 

7460 FOR kK-1 TO NLZ:FOR Js1 TO Z:FOR Is1 TO NHT 

7470 IF DLABAT(I,J.K)z-0 THEN 7480 ELSE DLABAT(I.J.H) -DLABAT CI, J4,E) -HGF CI) sDTIME 
(K) DTIME(E) *HTF C1, J) *HTF (/Z,J) -HTF (8,1) :GOTO 7470 

7480 NEXT:NEXT:NEXT 

7490 ZTIME=0:FOR K=1 TO М2 

7500 IF DTIME(K)-ZTIME THEN ?ТІМЕ-рТІМЕ ҰК) 

7510 NEXT:HZCLK (W, 2)? EZHOUR-ZTIME:HZCLE (W, 2) 24: FOR E21 TO NLZ 

7512 IF ZONE«(F)51 THEN ZN(F)sHZ2CLFE (W, 2) 

7520 NEXT 

7530 'FRIHT "Nr of Helos";HZCLK(W,.L-4) 

7540 GOSUB 2480: RETURN 

7550 RETURN 

7540 MN=SNH(W, 2) 

7570 W=SNA(MN, 1) 

7580 FOR I-1 TO NHT:NCAR(I)=HOCLE (WL I+6):FOR J=1 TO Z:FOR Ks1 TO NLZ 

7582 DLABAT(I.J,K)20: NEXT: NEXT: NEXT 

7590 FOR К=1 TO М2: 70МЕ (К) =00: МЕХТ 

7600 IF ЗМА(ММ, 1) 7:0 THEN 74620 ELSE I=SNA(MN, 73) 

7510 LDT-SMA(GMN,S):DEST-SNA(GMN, 5) : IF ZN(DEST). HOUR. THEN HZCLK (W, 2) 2ZN(DEST) : HZCL 
K(OI,Z2)22:GO0SUB Z5SSO:RETURM ELSE DLABAT(I,LDT,DEST) SDLABAT CI, LDT,DEST) *SMA CMM, 4) : 
ZONE/(DEST)-21:IF MM-NAÀ THEM 7620 ELSE MN=MN+ 1 : GOTO 7600 

7520 FOR I=1 TO NHT:IF NCAR(I):£:O THEM L-I 

7820 МЕХТ 

7540 ЕОБ кК=1 ТО М2: ОТІМЕ (К) =0: МЕХТ 

7650 FOR К=1 ТО NLZ:FOR J=1 TO 2:ЕОБ Ісі ТО МНТ 

7660 IF DLABAT(I.J.k)4£20 THEN 7570 ELSE О АВАТ (І, Ј, К) = 0 АВАТ (І. Ј. К) -НСЕ (1) : ОТІМЕ 
(К) =ОТІМЕ (К) +НТЕ (1, Ј) +НТЕ (2,7) +НТЕ (8,7) : БОТО 74520 

7570 МЕХТ:МЕХТ:МЕХТ 

7680 ZTIME=0:FOR Ks1 TO NLZ 

7699 IF DTIME(K):ZTIME THEN ZTIME=DTIME (EK) 

7700 NEXT:HZCLK (W,2)-2HOUR-ZTIME:HZCLK(W,Z)24:FOR kz1 TO NLZ 

7702 IF ZONE(K)-21 THEM ZM(K)-sHCZCLE (W.Z2) 

7710 NEXT 

7720 "FRIMT "Nr of Helos":HZCLEK(M,L (ف+‎ 

7720 GOSUBR 2550:БЕТМЕМ 

7740 RETURN 


7749 
7750 PRIMT"STOCH":BEGOCH-O:IF OCHC!-2 THEN RETURN 
7780 IF OCHCi= THEM FCH=l: GOTO 75% 
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777 FOR I=1 TO 0) ٢۸۸۷ع۰:‎ ]٤ ئ٭(>-,[] )7طا2‎ ۲٢ع٤٤‎ ٦2٣0 ۶ ٭(ج-,] ؛‎ ١:٤٦7” (1,1؛‎ >1 

7780 MEXT:GOTO 7810 

7790 DCSETzO:FÜR I-1 TO HCHWAVE: IF HZCLE((I.O)20 THEN HZCLE(CI.12)2I:HZCLE (C(CI.Z2)? 2HOLD 
AeL (I,J) =l 

7800 NEXT 

7810 GOSUB 7080:RETURN 

7819 

73829 PRINT"STNSH":FMH=1: BEGNSH=0: NSSET=0 

AE R OR T=) TO HNWAÓVE:HSCLKCI, T)SI:IF HZCLK(I,O)20 THEM HZCLK(I,2)-HOLD:HZCLK (I 
NU! 

7340 NEXT 

7850 GOSUB 7080:RETURN 

7859 * 

7850 FRINT"STSH": BEGSH20 

7870 FOR I=1 TO HSWAVE 

7872 IF HI1CLK(I,O)20 THEN H1CLK(I.1)2Is:sHICLKE CI, 2) HOLD: HICLECI,Z) S1: FRINT"HI1CLE( 
EEPUCHICLECI.1). "HICLECI, 2)"; HICLK(CI,2) 

7880 NEXT 

7890 GOSUB 7080:RETURN 

7899 " 

7900 FRINT"HALTSH": SSET=1 

72919 FOR I=1 TO HSWAVE 

7912 IF HICLK(1,0)=0 THEN HICLK(1,1)=I:HICLK (1,7) =HOLD: H1CLEK (I, 5) =6:FRINT"HICLE ¢ 
IESU HITCLKCI, 129 H1ICLIKCL42) "53 HICLK CI, 2) 

7920 NEXT:RETURN 

7929 ` 

7920 PRINT"BESTART":GSET=9):J=1:IF FSL=HI THEN 9029 

7940 CVAL-O:FOR I-51 TO LSWAVE:IF LICLK(I,Z)£71 THEN 7970 

7950 LICLK(I,2) =HOUR+J: IF J=1 THEN K=I 

7960 J=J+S:CvALa1 . 

7970 NEXT: IF KYLSWAVE OR CVAL=0 THEN 3020 

7280 IF MCLOCK(4,2)-1 OR MCLOCK(4,Z2)26 THEM 8010 

ESSO IF LICLK(K.2) :MCLOCK (4,2) THEN 3020 

8000 LWAVEsMCLOCK (4, 12 : LICLK (LWAVE, 2) Z MCLOCK (4, 2) 

S002 FPRINT"Sched Wave":LWAVE:" Time";LICLK (LHAVE,20:" Code":L1CLF (CLAVE, ) 
8010 GOSUB 4800 

3020 GSET=0: IF FCL=HI THEN 0 

8070 IF OCLCK=2 AND LLSET=0 THEN 8120 

8040 CVAL-O:FOR I-1 TO LCWNAVE:IF L2CLK(I.Z2)0£»51 THEN 8070 

80590 LICLK(I,2)=HOUR+J:IF J=1 THEN K=I 

8060 J=J+S:CVAL=1 

9070 NEXT:1IF K:LCWAVE OR CVALsO THEN 8129 

8080 IF MCLOCK(S,2)=1 THEN 3110 

809 IF LICLK(K,2)"MCLOCK(S.2) THEN 9129 

aoe) LwAVE=MGLOGr (a. 1) sL2CLit CEWAVE, 2) 2 MCLOCKE CS. 2) 

8102 FEINT"On-Call Wave":LWAVE:" Time":LZCLK(LWAVE.29):" Code":LZCLK (LWAVE, T) 
8110 GOSUB 4850 

912% GSET=0: IF FML=HI OR LNWAVE=0 THEN RETURN 

8170 CVAL=0O:FOR I=1 TO LNWAVE: IF LIUCLK(I,25)“>1 THEM 3120 

3140 LOCLK (1,2) =HOUR+J: IF J=1 THEN K=I 

8150 J=J+5:CVAL=1 

8160 NEXT: IF K>LNWAVE OR CVAL=0 THEN RETURN 

8170 IF MCLOCK(4,75)=1 THEN 8200 

8190 IF LOCLE (h.2) >MCLOCK (6,2) THEN RETURN 

8199 LWAVE=MCLOCE (6, 1):LICLK (LWAVE, 2) =MCLOC?: (5.2) 

38290 GOSUB 49720: RETURN 

3210 FRINT"STOCL": SEGOCL=9: IF OCLCK=2 THEN FETURN 

8220 IF OCLCK=0 THEN FCL=1:GOTO 82520 

НЕНІ 06۰121۱0۰۱۷۰ ۲۱ 6 ۲۴ LOCIN@(l,av=o THEN LOCLE (I. Z)=12Le2ChL Kr (1,1)=1 

8240 MEXT:GOTO 8770 
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8250 LCSET=0:FOR I=1 TO LCWAVE: IF LIOCLE.(1,0)=0 THEN LICLK (1. 1)=2:LZ€LK¢1.2) =HOLD 
2966ا:‎ 7٦ 

МЕХТ 

GOSUB 7970:6600 


8250 
S270 
8279 
8280 
8290 
, 5) = 
8500 
8510 
SS19 
89882 ٤0 
85.50 
8 20 
0 
8240 
go 
8:55 
83580 
8270 
Esc 
ГІ) 
8580 
828% 
8290 
8400 
8410 
8420 
8420 
8440 
8450 
8452 
8460 
8470 
8480 
8490 
500 
8510 
gszo 
do) 


cers 
e a 


8540 

SP 
8260 
8570 
gzgo 
8290 
8600 
ge? 
9610 
S6420 
96.20 
8553 
8640 
860 
8660 
8670 
8680 
869390 


PRINT STINSL':EMEZILBEGMSUEEDSBISSETEM 
FOR I21 TO LNMWAVE:LICLK(I,1)sI:IF IL Z2CLK(CI,O00-O THEM ЕЗБЕКСІ, 2У-НИРЕПЕСЕВИИЯұ 


1 


NEXT 
GOSUB 79:30: RETURN 


ERINT SESEXUBEGOSESU 
FOR I=1 TO LSWAVE 


rE 


LICLK(I,O)20 THEN ГІСІК(І, 19-іІЗГІСІК(СІ, E =HOLD: Ei GER Gl 6 ۶۹۰ 


"“БІБЕКСІ, 1?, "ЕТСЕКСІСІ СУЫ ДЕЕ ЕК 2 
МЕХТ 
БОБОВ 79905 RE TURN 


PERINTSHeCPSESSEESETDEI 
FOR I=1 TO LSWAVE 


IF 


LICLK(I,0)20 THEN LICLE(I,f)2I:LiCLICI,2) HOLD: CIGER I SI = РЕ ШЕ 


"СЦЕ, 1) ۰۰ء‎ 4 1 517 
NEXT: RETURN 


FOR Js1 TO 2:ЕОК Е-! ТО МНТ:ЯНБЕГИ EO HOST COS EO ۶۳6۶ NEXT 
ئ۲۴6۰‎ ТНЕМ S8480 


ТЕ 


HICLKOIWI. )-HOLD THEN RETURN 


HACLk=H1 CLK (WW1, Z2) : NCAR (WTYP) -H1CLK (ul1,UTYP*-6) :*GOSUB 8710 


ГЕ 


NS=0 THEN DLTIME=109 


HECLE=HOUR+DLTIME: IF HACLKS=HBCLK THEN WDS=1:GOTO 8620 
FOR del TOE SER ESL 7 


HOST (J,K) WHOST (J,K):MEXTs: NEXT :HTGLER СИНУ S) —HEEBE 

РКІМТ HACLKÉK:HBCLK: IF MCLOCE(1,1)-uwW1 THEN MCLOCHKUCISNED -HBCLES 
6  0٭‎ 

ІР ССІ:2 ҮНЕМ 8260 


IF 


H2CLE (WW1,2)=HOLD THEN RETURN 


HACLK-HZCLK (WW1,2):NCAÀR (WTYP) HZCLKE (WUW1.,WTYF--5):GOSUB 8710 


Ir 


NS-0 THEN DLTIME=100 


HBCLK=HOUR+DLTIME: IF HACLE*=HBCLEK THEN WDS=1:GOTO 8629 
FOR d=! 70 2:FGR F=!1 ТОНЕ 
HOS (J. =WHOST (J.K) NEXT? NEXT Heer (whl) 77 


IF MCLOCK(tZ2.1)uuWtI THEM MCLOCE (2,2) -HEGLE 
GOTO 8620 
IF HZCLFE (WW1,2)=HOLD THEN RETURN 


HACLEK=HZCLK CHW1, 2) : MCARE CUT YP) 2HZCLE' (Wu1, uTYP-6):GOSL'B 9710 


Dr 


NS-0 THEN DLTIME-2107 


HBCLK-HOUR-DLTIME:IF HACLKcX-HBCLK THEN WDS=1:GOTO 8520 
FOR 2-1 ТО 2:FOR K=1 TO NHT 
HOST (J, Kh) -WHOST (J, Kk): NEXTSNEATS HOGER Cub 2) See 


Е 
ГЕ 


MELOER (3,2) =WWl THEN MCLOCK (3, 2)=HEBCLK 
WDS= THEN DS=9:CC=CC1L1:WwW=WWl ELSE CC=0:WW=0: DS=1:WSET=1 


CC 1=0: WW1=: WNS=0:WTYF=H0: WLDT=0: RETURN 


Lr 
IE 
PE 
ТЕ 
ГЕ 
ТЕ 


CC-O THEM RETURN ELSE CC1250:WW1-270 

CC 1 THEN 8670 

HiCLE (tul. 2): 2 OR HICLEK (WW, O) 71 THEN RETURN ELSE 870^ 
СЕ ی۶‎ ۵ 

НЫӘСЕК (ЫЫ, 525272 OR H2ZCLE (4,008 ۰۰۱۰۰۲۴۱٤۲6  + 70 
HTCLEK(CUU. 2). 2 OE HEEL COU OD N THEN RE MUD 
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LSI 
8799 
70د‎ 
8712 
e720 
8720 
8740 
8742 
89750 
8750 
9770 
8780 
87920 
agoo 
= |= 
8810 
gazo 
89850 
8840 
8820 
8860 
Ok 


SZOC RESO 


WPAC=HEST(WLDT .WTYP) -—WHOST (WLDT.WTYP) 

IF WNS<WEAC THEM 8720 

FOR J=1 TO 2:ҒОК К-1 ТО NHT:WHOST(J.K) =HEST(J,K) NEXT: NEXT: GOTO 9770 
RMFRC ' uNS/WPAC 

FOR J=1 TO 3:FOR K=1 ТО NHT 

WHOST (J,.K) =WHOST(J,K)+RMFRC! * (CHEST (J,K) -WHOST(J,E)) 

IF WHOST (J,K) (HEST (J, kK) THEN WHOST (J.K) =HEST (J.K) 

NEXT: NEXT 

NS=NHOST (WLDT,WTYPF) 

IF NS >NCAR(CWTYP) THEN 8800 

FOR Js1 TO 2:ҒОК К-1 TO NHT:WHOST(J.,K) =O:NEXT:NEXT:WDS=0:GOTO 8810 
RMFRC'=(NS-NCAR(WTYP))/NS:FOR J=1 TO 2:ҒОК Е-1 TO NHT 

WHOST (J .K) =RMFRC! *WHOST (JE) seNEXT: NEXT: WDS=1 

DLTIME=0 

IF NS= THEN RETURN 

IF NCAR (WTYP)“=9 THEN 8850 
DLTIME=DLTIME+HTF (S.WLDT) : NCAR CWTYP) =NCAR (WTYP) -NS:GOTO 8850 

FRINT WDS3;CC1sWW1;CC3 bills WSET: WINS: RETURN 

GOTO 380 
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11. 
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